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THIS PROGRAM IS A LOGIC TEST OF THE DR11-K DIGITAL INPUT 
OUTPUT CONTROL OPTION. ALL OPTION FUNCTIONS CAN BE TESTED. 


THIS evened 9 i ve nes Pia'D oe TO_VERIFY PROPER 
CONNECTION ag mated OF THE XLO1’S. 
T ROUTINES § PVE. THE a FUNG 

#4" ONLINE Hest 


pM at Y’S A SOFTWARE ROUTINE TO VERIFY PROPER 
cone ON’ Ye chee He INSTRUMENT’S LIKE T 


TER MODEL “S” 
DUE TO THE fice ey 2.7% tne OPERATOR 
iy, Oot tao Heute Bice See ne OF iRéur_anreeruer 
aE Tre, See MULTIPLE THESE al IGERATIONS MUST 
TE 


BE INSER Peete ats “Tibeers aust W21A, We2A AND W23A. 


THIS Ae ey WILL TEST SEQUENTIAL DR11+K’S of ee oh a R, 
S ADDRESS VECTOR_IN LOCATIONS “BASEBA on or 

OR NORMAL FACTORY CONFIG., ALL QUESTIONS SHO BE BNSKERED 

WITH A VALUE OF O. 


EQUIPMENT REQUIREMENTS 


PDP-11 FAMILY Cone uTER WITH CONSOLE I/0 TERMINAL AND 4K OF MEMORY 
DR11-K OPTION TALLE 
BCOSR-1 ONE Foot OUTPUT TO INPUT WRAPAROUND CABLE 


= 
a 


LOADING PROCEDURE 


THE PROCEDURE FOR LOADING BINARY TAPES SHOULD BE FOLLOWED. 


SEQ 2005 
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4. STARTING PROCEDURE 
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SEG O00E 


4.4 CONTROL SWITCH SETTINGS (LOGIC TEST) 
THE ee iS aie a A CPU WITHOUT A SWITCH 


REGISTER THE 


ITCH REGISTER IS USED WHIC 


If THE HAR ee N ROT EXIST OR 1 re ‘eee , 


AND IT CONTAI 
REGISTER ‘Loe 198) 1s. iseD. 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. tag FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 


DCING THE FOLLOWI 


1) TYPE CONTROL G <tG>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: noes NEW= (XXXXXX IS THE OCTAL CONTENTS 


OF THE SOFTWARE SWITCH REGISTER. ) 


3) AFTER THE **NEW="" HAS a TYPED THEN THE OPERATOR CAN DO ONE 


OF THE FOLLOWING AT THE T 


f) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 


(ONLY NUMBERS 
WILL , © on LOWED ) 
IF A <CR> IS THE FI 


TWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
RST KEY DEPRESSED THE SOFTWARE SWITCH 


REGISTER CONTENTS WILL NOT BE CHANGED. 


co 


BACK TO STEP 


IF A CONTROL + <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND Y 


WILL BE USED AS THE SOFTWARE DISPLAY REGISTER. 


SW iS =1 00 

SW 14 = 1 jaltaa 
SW 13 =1 020000 
SW i2 = 1 010000 
SWill=l 004000 
SW 10 =1 002000 
SW OS = 1 001909 
SW 08 = 1 coo4o0 


HALT ON ERROR 

LOOP ON CURRENT SUB-TEST 

INHISIT ERROR TYPOUTS 

LOOP ON CURRENTLY LTE " aaalen 
INHIBIT aus 5 tie INTERAT 

wry Hay Ms INPUT WRAPAROUND CABLE 


N ERROR 
LOOP ON TEST IN SWR <7:0> 


4.2 
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STARTING ADDRESSES 


200 T TAR Ss THE Laie TEST. 

os 18 The Resrant ADDRESS. OF THE LOGIC TEST 

e10 is T FE CONTROL LOOP. 

214 IS THe Star TING ADDRESS OF HE COULTER NT TERFACE LOOP 

220 IS THE STARTING ADDRESS OF THE LOGIC TEST WITH “COULTER JUMPER” CONFIG. 
ee4 IS THE STARTING ADDRESS OF THE LOGIC reat WITH ey BOX JUMPER” CONFIG. 
e30 IS THS STARTING ADDRESS OF THE H32l “LOC-BOX” FUNCTION LOOF 

234 IS THE STARTING ADDRESS OF THE XLOQ1 ADJUSTMENT LOOP 


Me ee oe ar met BE Ts LED TO EXECUTE THE 
ir THE CUSTOMER HAs "set éGteD THE “B" pectton = THESE May 
MUST BE RETURNED TO THE “FACTORY” POSITION BEFORE RUNN 


IT RE 
THE LOGIC TEST. ## T ING THREE JUMPERS. x# 
THE Se TOR MUST INSERT T HE, CORRECT INFORMATION IN THE bite 
ER STE HE PROGRAM OR AN ERROR WILL 
WITH THE INPUT OE RPT Cult Meee AND DATA LATCHING NG JUMPER cur 
IN THE TION, ALL SUITCH | REGISTER BITS SHOULD BE RESET. 
ONCE STARTED THE TEST WILL RUN IN NORMAL 
WITHOUT OPERATOR INTERVENTION OR litte SELECTION. 


##% NOTE: OPERATOR MUST INSERT ae WHEN PRES ED BY 
PROGRAM. THE MACHINE WILL TYPE: NEW 
THE INFORMATION IS INSERTED. REFER TO SECTION 4. t 2) ee 


THIS oe USES THE DIAGNOSTIC *SYSMAC’ PACKAGE FOR 
ERROR REPORTING AND TYPEOUT. ta TO THE “ERROR POINTER TABLE” 


FOR TYPE AND von aa OF ERR 
WORD $PASS: (LOC. 1100) CURRENT PASS COUNT 
BYTE STSTNM LOE. itva; CURRENT TEST NUMBER 
BYTE $2 Tene: (L (LOC. 1314) L ae my ome TABLE INDEX 
WORD ERRPC: (LOC. 1116) RRORING P.C. 


RESTRICTIONS 


1. IF SEQUENTIAL DR11-K’S, ALL DRi1-K’S MUST BE IN THE 
SAME INTERRUPT SWITCHES AND DATA PATH JUMPER CONFIGERATION. 
THE fone I re BE IN THE “FACTORY” POSITION: 
THE OPE OBERAT oR MUST SUPPLY THE CORRECT ple my SWITCHES 
AND DATA PATH JUMPER AND SWITCH CONF IGURA 
INFORMATION TO THE INITALIZATION ae teey OR AN ERROR WILL OCCUR. 


OUPS 
THIS DIAGNOSTIC MUST BE RUN FOR EACH GROUP. 


SEG 0007 


DR1l 

DZDRGS.& 
8. 
8.1 
€.2 


GO1 
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MISCELANEOUS 


EXECUTION TIME 


THE LOGIC TEST MILL TA Ly ® rep a Y 60 er FOR COMPLETION 
ON A POP11/0S T PASS NNNN 


ONTROL L LOOP 
THE COULTER INTERFACE LOOP WILL NEVER EXIT. 
THE H32i LOC-BOX FUNCTION LOOP WILL NEVER EXIT. 
THE XLO1 ADJUSTMENT LOOP WILL NEVER EXIT. 


DEVICE ADDRESS PROGRAM LOCATIONS (AT APPROX. 1300) 


“BASEBA” (LOC. 1306) CONTAINS THE DR11-K BASE DEVICE ADDRESS <767770> 
“BASEIV" (LOC. 1310) CONTAINS THE DR11-K BASE INTERRUPT VECTOR <300> 
“BASEBR” (LOC. 1312) CONTAINS THE DR11-K BR LEVEL #4 <°90> 


#NOTE: IF THESE LOCATIONS ARE CHANGED, THE OPERATOR MUST START 
THE TEST AGAIN AT LOC. 200. THE PROGRAM WILL USE THE 8A 
ADDRESS AND VECTOR AND UPDATE THE ACTUAL PASGRAR val UES. 


SEQ o00e 
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9. 


3.1 


3.2 


$.3 


O1 


SES 00c9 
PROGRAM DESCRIPTION 


LOGIC TEST «SA 200 AND 204 ~ 


THE LOGIC TEST IS A TEST OF THE CONTROL AND INPUT /OUTPUT 
REGISTERS. ALL JUMPERS AND SWITCHES COMBINATIONS EXCEPT: 


W21A, W22A AND We3A CAN BE DIAGNOSED. 


THE PROGRAM CHECKS THAT nS DR11-K CAN INTERRUPT AND THAT 
“RESET” WILL WORK CORRECTL 


CONTROL LINE LOOP «SA 210) 


THIS TEST LOOP PROVIDES THE OPERATOR WITH A 
SCOPE LOOP FOR CHECKING Wel, We2 AND W23 IN THE “B” POSITION. 


COULTER FUNCTION LOOP <SA 214% 


THE COULTER INTERFACE LOOP PROVIDES THE OPERATOR 
WITH ae INTERFACE ie THE COULTER HARDWARE . 
“BASEBA” (LOC. 1306) CONTAINS | ye pys “ee S. 


THE PROGRAM WILL WA N YERRUBT 

INTERRUPT, THE PROGRAM a 4 70 MSEC. TO ALLOW THE DATA , INS 
TO SETTLE. THE 70 MSEC. DELAY IS A FACTOR OF CPU TYPE AND MAY 
REQUIRE THE OPERATOR TO MODIFY THE VAL 

(LOC. os ta THE dona eres ON A DIFFERENT CPU TYPE: 


11734 7 
11740 620 
1174S 7 
11/70 ’ 


THe COULTER _INPUT pare IS The TEST IN A NURGERS BUFFER 
THE HIGHER FOUR BI rs aie Ys WITH ZERO BEING THE 


I ( SAMP PROGRAM 
wie og M3 RESUL is IN “ne “Fou LouING NG-PORRAT AND’ THEN RESTART 
LN Seo we, Y facut CAN BE COMPARED TO THE 
COULTER YOU 0 VERIFY A ste ESSFUL RUN. 
“N-XXX" WHERE N = TEST NUMBER AND XXX = TEST RESULTS 


THE RESULTS ARE BINARY CODED DEC Tn THERE PPE BIT Com inet TONS 
WHICH ARE ERRORS AND SHOULD NOT APPEAR ON THE COULTER OU 


CODE: 


2~ mee oe 
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OzD8so 
3.4 LOGIC TEST WITH COULTER JUMPER CONFIG. <SA 220) 
RUN THE cE TEST YR COULTER INTERFACE JUMPERS 


AND WITH AN INTERRUPT LEVEL 
COULTER DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE: 


INveRRUPT Ng IheuT BITS 70000 
OSITIVE INPUT BIT 000000 
TRANSITION INPUT Bits 170000 


$.5 LOGIC TEST WITH LOC-BOX JUMPER CONFIG. <SA 224 


RUN THE LOGIC TEST WITH THE LOC-BOX INTERFACE JUMPERS 
AND WITH AN INTERRUPT 


LEVEL OF 
H321 LOC-BOX DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE: 


NON-LATHING INPUT GI7S 000009 
INTERRUPTING INPUT BITS 177777 
POSITIVE INPUT BIT 900090 


TRANSITION INPUT BITS : 000030 


00:C 


O1 
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§.6 


3.7 


10. 


H321 LOC-BOX FUNCTION LOOP «SA 230> 


ws i ENABLES oy aoe on Nat ae er ta OPERATION 
HE H321 LOC-BOXx ! Re . crey One C TT ge 
i Abra eeer EE SSPE al est Motiess, 


Ua ue Scout 6 ale oe CPU EERE a MILL cause 
IF THE CATER [8 De DETECTED 7 re ORL = TER “GONE [CURATION SHOULD BE QUESTIONED? 


THE BUS ADDRESSES OF THE DR11K’S ARE 167770, 167760 AND 167750. 
HE OPERATOR MAY ce LOCATIONS LOC1, LOC2, LOC3 


(hg gee ta orlik é. 


XLO1 ADJUSTMENT LOOP «SA 234 


THIS LOOP ENABLES THE OPERATOR TO VERIFY OR seed THE Nec 


nOTEBLOY" TRE Hoe] CAMP'S OPERATE AS SHON BELOW” REFER TO THE 


POL-11 INSTALLATION MANUAL FOR ADJUSTMENT DETAILS. 


APPROCHING Q 0 1 
AN END 0 1 1 
--------- 1 1 1 
CENTER 1 1 1 

: ! 1 
REGION 
APPROACHING 1 1 fs 
AN END 1 0 q 


THIS LOOP USES THE SAME DRI1K'S BUS ADDRESS AS 9.6 
LISTING 


ATTACHED. 


DR11-K etre” TEST MAINDEC-11-DZDRGD 


OZORGD .P 
388 


ene 
— 


~eN 


“en . 
(D> 0-0 bo > +--+ 0-0 - CD 
~~ 


oN em ese OOo 
asada —se 


LOR OLN LN NON OREN IN ONE OP 


SERRE PN 


ee ee ee ee ee ee ee ee a ee ee oe ee eer ee ee er 


se 


_— 


b= 0 0-2 d + 0+ bo B- + b+ Bs 8 bo BB b= be 0 Ob bs bo bo be bo be 2 + 
~'s er ee 


Pa ae te tee ae tae hae ae, eee ee ee ee De ae 


001100 


000340 


100000 
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. TITLE OR os LOGIC TEST MAINDEC-11-DZDRGO 
; *COPYRIGH 976 

s#01GIT EQUI NT_ CORP. 

_ MAYNARD, MASS. 01754 


jePROGRAN BY RAYMOND SHOOP 


STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; PACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 


.SBTTL BASIC DEFINITIONS 
pope ADDRESS OF THE STACK POINTER 2## 1100 42% 


EOuIV ENT. ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV TOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


a es 


aay SOE tora 


Kee 15 £300 FOR CARRIAGE RET 
CRLF= 200 >CODE FOR C LReTURN-LINe FEED 
PS= 177776 ::PROCESSOR STATUS WORD 
PS. PSW 
STKLMT= 177774 ssrA LIMIT T REGISTER 
IRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 HARDWARE SWITCH REGISTER 
DDISP= 177570 Hor DISPLAY REGISTER 
,¥GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 ;GENERAL REGISTER 
Ri= %1 : GENERAL REGISTER 
Ro= “2 :: GENERAL REGIST 
R3= “3 : : GENERAL REST eTER 
R4= “4 : GENERAL REGISTER 
oe te i RENERAL REGISTER 
R7= % + RENERAL RTETER 
SP= “% ;;STACK POINTER 
PC= "7 ::PROGRAM COUNTER 
-¥PRIORITY LEVEL DEFINITIONS, 
Pro= si IORITY LEVEL O 
PRiz 49 :: PRIORITY LEVEL 1 
PRe= 100 ::PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PRY= 200 ;:PRIORITY LEVEL 4 
PRS= 40 Pett LEVEL S 
PRE= = 300 :PRIORITY LEVEL 6 
PR7= 340 :: PRIORITY LEVEL ? 


-*"SWITCH REGISTER” natie DEFINITIONS 
Gwis= 100900 


SEG 0012 


LOl 
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BASIC DEFINITIONS 


SEQ 0013 


TOr OLN MUHWO 
eo 
4 4 4 4 4 4 
eseslesleslesfusferfeslastesy 


ONO0O0000000 


TAAARAAG 


~_e en 8 eRe Be eee & 


DEFINITIONS (BITOC TO BIT1S) 


be 
onl 
a 
>>>> >> ooo > = HUN 
a 
Qa 


Cntr > >>> >> >> 

“une pu ¥ I 00 00 00 00 08 00 08 10 Oe e—co—c0—s os 4 0 0 wsrmoru-O Ss 8 em SSE EEE EEE 
PEEFER ao oe ao \ al eel ed oe ee el ed ee ed ee ed ed ed oe ed oe el oD Co Co Do | 
PEEEEE | POU ee Peeve ee eee ee ed len lelen len lenlenlonlenlenlonlelonionlenl iti evi etl eeievievieeieeleyy 
'aReaeaee ees “MOMOMUMMOMMMMmMmamMmMmmmM - +++ s es = we & © 


a ee Ne Se et et et St Ne Se St Ne Be et See at Set Set Net Set Set Set Net Sat et et et et Nt Sw Set Be Set Set Se Bet et Set Be Sat Set Set St 


-- 
o- 


- 


ee 4 


+ +0-—-> - 6 8 «5 » = §-+ >» <p -+ & +b 


Bs 
Bs 


_—- 


Tone 


on ae ied 
ee a a et es es ee 


~ one 
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BASIC DEFINITIONS SEQ COl4 
- #BASIC wcPu” TRAP VECTOR RODRES S 
999904 ERRVEC= 4 ;; TIME OUT AND OTHER ERRORS 
10 RESVEC= 10 ;}RESERVED AND ILLEGAL INSTRUCTIONS 
906014 TBITVEC=14 $377" BIT 
900014 TRIVEC= 14 TRAP 
909014 BPTVEC= 14 BREAKPOINT TRAP (BPT) 
900020 IOTVEC= 20 js INPUT/QUTPUT TRAP (IOT) **SCOPE«s 
PURVEC= e4 :: POWER FaqL 
EMTVEC= yy Be RAP (EMT) ##ERRORS# 
900634 TRAPVEC= 
TKVEC= = Y KEYBORRD, 
64 TPVEC= 4 ath 
905240 PIRQVEC=240 :: PROGRAM INTERRUPT REQUEST VECTO 
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SZDRGD. PLL OPERATIONAL SWITCH SETTINGS SEG cols 
392 -SB1TL OPERATIONAL SWITCH SETTINGS 
h oy WO er cans Die Sect 
a ie 45 HALT 
‘T) # 14 LOOP_ON TEST 
+ ts (3 1O0P-ON CURRENTLY SELECTED DRL1~K 
id) :# il Iaielt FERRY The 
re 4 10 T0 tNPUT WRAPAROUND CABLE NOT CONNECTED 
iD ;# 2 Hee a ee in swee7:0> 
3 \SBTTL TRAP CATCHER 
rr eg: i LOCATIONS ROM 4-776 CONTAIN A*.+2,HALT® 
it) a, uae, SERCH ILLEGAL TRAPS INTERRUP 
cD) HALOCATION, Q CONTAINS 0 TO CATCH IMPROPERLY LOAGED VECTORS 
se? 
ce: pare: IS SERRE ARLE UT 
(2) = “SETTL STARTING ADDRESS( (ES) e 
ats Rapsaa BRRtaS BRHEG He ABBE RIN, sJOne TO 'THE RESTA aDERESS 
ae fe HERG) Me 1B Pe tah EO 
3 44 appt 39 1419 JMP ara ‘JUMP TO SA un Tre ag 110 ON OMPER CONFIS. 
Ses Bee te a RT Vie yoga 
Tee Geese BbRES Bteoad TMP = XLOLAD STUMP TO &@ OF XLOi ADJUSTMENT LOOP 
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GO.P11 COMMON TAGS SEG COLE 
402 .SBTTL COMMON TAGS 
( 5 ) ; LHRRRAALALAAALALALAALLLAAALLELAALAALAALALAALALELALLLALAL ALLELES 
(1)  ETHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
1) >#USED IN THE PROGRAM 
(1) 001100 21100 
a varbtes ooo00 Senece FRONT va Bees COU “a 
(1) are 000 STSTNM: “Bae : CONTAINS ane TEST NUMBER 
(1) BSoitos op000D se (HORS 8 ST ONTAING SUBTEST ITERATION COUNT 
(1) Bote ooo0o00 SLFADR: “tioRD é' 5 :: CONTA Ne aur L 
Bi ines a: oe eavrane feta Sais pete 
(1) Botti ae a ne: "BYTE CONTAINS fen CONTROL BYTE 
(1) 001115 001 SERMAX:-.BYTE 1 :CONTAINS MAX. ERRORS PER TEST 
(1) 091116 000000 SERRPC: .WORD OO sECONTRINS PE Oe PC OF gkPgt ERR ERROR INSTRUCTION 
(1) 601120 od0000 5 "WORD 9 GOOD’ DATA 
(1) OO01l22 o00000 SBDADR: .WORD 0 :: CONTAINS ADDRESS. OF ’BAD’ DATA 
(1) 001124 o00000 SGDDAT: :WORD 0 ::CONTAINS ’GOOD’ DATA 
(1) 001126 o00000 $BDDAT: :WORD 0 CONTAINS *BAD’ DATA 
(1) 001130 00000 0 :RESERVED--NOT TO BE USED 
(1) 001132 o00000 " 0 
(1) 001134 . SAUTOB: .BYTE 0 anoerie MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 !: INTERRUPT MODE INDICATOR 
qi iret 1 SWR “NORD ScUR sADDRESS OF SWITCH REGISTER 
ue . 
(1) rete 135250 DISPLAY: . WORD Bate : SaDDRESS OF DISPLAY REGISTER 
(1) JO1144 177560 $TKS: 177560 5 TTY KBD § TUS 
(1) 001146 177562 STKB: 1 KBD BUFFER 
(1) 001150 177564 STPS: 177564 Ty PRINTER STATUS REG. ADDRESS 
(1) 001152 1775€¢ $TPB: 177566 ;; TTY PRINTER BUFFER REG. RODRESS 
(1) 001154 000 LL: .BYTE O :CONTAINS NULL CHARACTER FOR FILLS 
1) 901155 SFILLS: :BYTE 2 : | CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 Ole SFILLC: .BYTE 12 33N NSERT FILL CHARS. AFTE LINE FEED” 
(1) 001157 000 STPFLG: :BYTE 0 TERMINAL AVAILABLE” FLAG (BIT ch?) caSYES) 
(1) 01160 oocD00 SREGAD: WORD 0 !:CONTQINS THE ADDRESS FROM 
(1) ; i (SREGO) WAS OBTAINED 
(3) 001162 900000 : .WORD O SiCONTAINS (($REGAD)+0 
(3) 001164 do0og0 SREG1: :WORD O ; }CONTAINS ( (SREGAD) +2) 
(1) OO01166 oo9900 STIMES: O :MAX. NUMBER OF ITERATIONS 
(1) 991170 oooo0c SESCAPE: 0 : TESCAPE ON ERROR ADDRESS 
(1) 001172 °° 077 SQUES: .ASCII 7? :QUESTION MARK 
(1) 001173 o1s SCRLF: ASCII «15> 3 ; CARRIAGE RETURN 
(1) 001174 o00012 SiF: “ASCIZ «12> NE 
(2) ‘ . UEHBHBHB HEHEHE HHH HEHEHE HH HHH ad 


$ 


o 
Sx 


ot nt et nln ae tae ae ae ee ie ae ae a 3 


Ce b= bb <b bb bh bs pe pe 
ee eee ene 


oo oe 


901254 
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014027 


015002 
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-SBTTL ERROR POINTER TABLE 


;*#THIS TABLE CONTAINS THE INFORMATION F 
;#THE INFORMATION IS OBTAINED BY USING THE INDEX 
;#LOCATION SITEMB. THIS NUMBER INDICATE 
;*NOTEL: IF SITEMB IS O THE ONLY PERTINENT 
; ¥NOTE2: EACH ITEM IN THE T 
3% EM ;:;POINTS TO THE ERROR MESSAGE 
; DH ;;POINTS TO THE DATA HEADER 
;* DT ;;POINTS TO THE DATA 
;* OF ;;POINTS TO THE DATA FORMAT 
SERRTB 
ITEM 1 
EM1 ;STATUS REGISTER IN ERROR 
DH1 ZERRPC DRADD STATUS peso 
DT1 :SERRPC DRADD §BDDAT $GD 
OFO 
;ITEM 2 
EMe ; INPUT REGISTER IN ERROR 
DHe SERRPC DRADD INPUT EXPECTED 
ae :$ERRPC DRADD S§BDDAT $GDDAT 
; ITEM 3 
EM3 :OUTPUT REGISTER IN ERROR 
DH3 ;ERRPC DRADD OUTPUT EXPECTED 
ae ;SERRPC DRADD S$B8DDAT SGDDAT 
;ITEM 84 
EM4 ; INPUT FAILED TO INTERRUPT 
DH4 SERRPC DRADD 
DTY :SERRPC DRADD 
DFO 
;ITEM 6S 
EMS ;OUTPUT FAILED TO INTERRUPT 
DH4 :ERRPC DRADD 
DTY SERRPC DRADD 
DFO 
;ITEM 866 
EMG ; UNEXPECTED INTERRUPT 
DH4 sERRPC DRADD 
Bb :$ERRPC DRADD 


OR EACH ERROR THAT CAN OCCUR. 

T NUMBER FOUND IN 

S WHICH ITEM in THE TABLE IS PERTINENT. 
DATA _IS ($ERRPC}. 

ABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
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ERROR POINTER TABLE 


sITEM 7 
001256 014253 EM7 ;OPERATOR INTERVENTION ERROR 
001260 014633 DH4 sERRPC DRADD 
001262 sth DT4 : SERRP 
001264 o1s002 DFO 
;ITEM 10 
001266 914307 EM10 ; INTERRUPT INPUT BIT FAILED TO SET INPUT READY 
001270 O14660 DH10 s ERC DRADD STATUS EXPECTED INPUT BIT 
O0le7e 014764 DT10 ;SERRPC DRADD S$8DDAT S$GDDAT BRLEV3 
001274 o1S002 DFO 
sITEM tl 
001276 014372 EM11 :NON-INTERRUPTING INPUT BIT SET INPUT READY 
001300 014660 DH1o -ERRPC DRADD STATUS EXPE XPECTED INPUT BIT 
001302 014764 DT10 ?SERRPC DRADD $B8DDAT SGDDAT 
001304 o1s002 DFO 
1 BASEBA: 167770 : STARTING ADDRESS 
opt 1 03 eeate $85 ‘STARTING Bree PU SERRCE ADDRESS 
001312 oo0200 BASEBR: 200 
001314 000040 CPU: 240 1 MS. CPU DELAY FACTOR 240 FoR 11/95 
001316 oo0000 NMBEXT: 0 ADDITIONAL DR-11-K 
001320 oo0000 NBEXT: 0 
001322 167770 RADD: 167770 ;CURRENT DRII-K STARTING ADDRESS 
901324 000300 RIV: 300 :CURRENT DRI1-K STARTING TAPE RRSPT VECTOR 
001326 167770 LOC1: 167770 ;LOC BOX #1 ADDR 
001330 167760 LOCe: 167760 ‘LOC BOX #2 ADDR 
001332 167750 LOC3: 167750 ?LOC BOX #3 ADDR 
091334 167770 GRSTAT: 167770 :DR STATUS 
001336 167772 GRDAI: 167772 ; INPUT REG. 
001340 167774 GRDIO: 167774 :OUTPLT REG. 
001342 75 GRBHIO: 167775 : OUTPUT REG HIGH BYTE 
001344 990000 NOTLCH 
001346 o00 INTBIT 
001350 000300 GRIVA: 300 
001352 302 GRIVSA: 302 
001354 000304 GRIVB: 304 
001356 000306 GRIVSB: 306 
001360 oo DIOBRL: 200 
001362 ooo BRLEV1: 
901364 900000 BRLEVe2: 0 
001366 000 BRLEV2: 0 
001370 oo0000 ODDIMP: 0 
001372 000 MINSIN: 0 
001374 900000 TRANST: 0 Wie 
001376 0000 JUMPER: 0 :]1 IF RUNNING H322 JUMPER CONFIG :2 IF COULTER JUMPER CONFIG 
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DZDRGD.PII ERROR 
591 ; ERERAEAERAAALE SERRA L LS RA LELLALASSRALASALEAELAL LA ESES 
soe DIGITAL I-0 LOGIC TEST 
50 ese dstiabesusteversoeenseresepsagenssee 
504 001400 
E55 a0 14 a7 001376 R MN FER Rt NORMAL FACTORY BUILD 
5 
ete 051410 012737 oooeo2 001376 COULTJ: Moy #2, JUMPER s INDICATE COULTER JUMPER CONFIG 
oe 
09 0014 RBEG 
610 O01422 012737 OOM: 001376 H322J: MOV #1, JUMPER ; INDICATE LOC BOX JUMPER CONFIG 
ce pe fence sie 
oe 
e15 nate pero 177777 BEGINI: MOV #-1,RO ;LOAD RO 
14 O01440 BEG: RESET 
n Feltie He ahi TCO 
(1) O01442 012706 001100 = cnnae, — 'ssPRST LOCATION TO BE CLEARED 
1} BES Ree oo Be jouer ae ee wo 
% ; ;DONE 
(1) bo 14b4 Oia " sshoop BACK 
(1) 14 12706 001100 MOV STACK —- ::SETUP THE Fate POINTER 
aD 14 12737 scetechiee “— Co oe ctor BIOTVEC ;;JOT VECTOR FOR SCOPE ROUTINE 
(1) atta pi5332 vata ta alate NOV $33 See, side LYS 
(1) 001476 012737 015274 900030 MOV SSERROR aeEM MTV : “ENT _YECTOR FOR ERROR ROUTINE 
(1) 001505 012737 000340 9000032 MOV #340, JSEMTVE *, HLEVe 
(1) 001512 012737 017466 000034 MOV aSTRAP STM VEC TRA {VECTOR FOR TRAP CALLS 
(1) 0015206 012737 000340 o00036 MOV SRTRAPVEC +2; tive 
(1) O01526 012737 O16022 o00024 MOV spy : POWER FAILURE VECTOR 
(1) 001534 012737 000340 O00Ge6 MOV #340 aublvec® ;  LEVE 
(1) 001542 013737 O11142 011134 MOV SENDCT, BEYES END- OF PROGRAM COUNTER 
(1) 001550 005037 001166 CLR $T INES’ ssINITIALIZE Nut R_OF_ ITERATIONS 
(f} Boleed ie7a? po0dDy oDLLIS ov 2 tt EttOW ONE ERROR PER TESTO 
(1) 001566 012737 001566 001108 HARTY IAL 13e THE LOOP SS FOR SCOPE 
1) 001574 0120737 0601574 901110 aoe - "Eun RE ide A HE ERROR LOOP AOORESS 
(5} ‘iedg Ai a sn te TUP RO Tile “ulcy H REGISTER. 
(2) 001602 013746 900004 
(2) O01 012737 OO1642 op0004 id alc PVE, = (SP) is erye uP PERRO Veet FoR 
(2) 001614 012737 177570 OO1140 MOV #OSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
(5) DOIESD aseree topes Goiits OMe RODISE DISPLAY ii TRY TO REFERENCE RARDWARE SuR 
(5} BB 1 BaP BFF 1S NE beg’ : ! BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) : BND HE OWARE SWR IS NOT = -! 
‘g) 001640 909403 BR $5$ ::BRANCH IF NO TIMEOUT 
(2) OOl642 912716 oo1Es0 64S: MOV #65, (SP) ::SET UP FOR TRAP RETURN 
(2) OOl1646 o0000e RTI 
(2) 001650 012737 000176 001140 65$: MOV #SWREG, SWR gy? POINT TO SOFTWARE SWR 
(2) OO1656 0120737 O000174 O01142 MOY #DISPREG, DISPL 
(2) OO1664 012637 ooc004 663: MOV (SP)+, SRERBNER RESTORE ERROR VECTOR 
£16 001670 op024O NOP 
£17 o01672 o00e40 NOP 


2 


eK ERNCKIN 


3 


Ae hoe 


536 


de! semanas Sappancae a 
ewe WR OS eH Ye Dew vee DD 


Ul 


sss 


UNUnNUn oe UT INUninen Ue eee TT 


“uv 


=. 


Slateitercteetetetsitctsietet 
SHSRKERS cwoLo se 


Lorre 


001760 


Se 
002256 
002262 


INITIALIZE THE COMMON TAGS 


104401 
000426 


104401 
000413 


013746 
104403 
000002 


022737 


001724 
001306 


000010 


001316 


002752 
002032 


002114 


001316 


002160 


000001 


001344 
agen 


002752 
000002 


000004 


177200 


177164 


oooco4 
OCOS06 


001376 


001346 


001376 


es: 


1$: 


4§: 


S$: 
3$: 


RBEGI: 


4§; 
es: 


;65$: 


bas: 


-67$: 


bis: 


--69$: 


1S: 
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gestin,ne im STRRTING: ADDRESS 
Be ga Pa a! TEST ADDRESS 
: UP TE # 1’°S 


PF 
(SP)+, (SP)+ ; POP STACK 
R3 ;TEST IF FIRST DOES EXIST 


3$ :BR 
#H13, ISH sTEST ia INHIBIT TYPEOUT 
BUSTRP af +e "oBERATOR. BAS ORIIK DOESN'T EXIST 
HSUIS, aSHR 5 

ier RST DRL Ik HOES NOT EXIST 

‘CHECK THE PROGRAM DEVICE ADDRESS 
2g : TRY AGAIN 


; ADJUST R3 
‘SAVE THE NUMBER OF ADDITIONAL DR11-K 
Ra Annee JeERRVEC :RESET BUS ERROR 


#340, JKERRVEC+2 


ase : TEST IF UNDER A MONITOR 
4g :BR Fo 
RO TEST 
2 ‘BR IF RO EARED 
IOTEST ‘JUMP IF SET 

65$ ; TYPE ASCIzZ STRING 

45 ‘GET OVER THE ASCIZ z 
C15><12><15><12>/ORII-K DIGITAL INPUT OUTPUT LOGIC TEST. 


675 ;s TYPE ASCIZ STRING 
6$ -GET OVER THE ASCIZ 
C15) ¢12> /MAINDEC*{1-DZ0RGD/< 15> < 12> 


NMBEXT, -(SP) 


2 
69$ 3 TYPE. ascIZ STRING 
ag : GE R THE ASCIZ 

7(B) ADDITIONAL inset? : CR ONNECTED 15> < 12) 

#1, JUMPER TEST IF LOC-BOX CONFIG. 

NOTLCH :LOAD LOC-BOxX JUMPER CONFIG 

#-1, INTBIT : 

MINSIN 

TRANST 

IOTEST sRUN THE LOGIC \-ST WITH LOC-BOX JUMPERS 
te, JUMPER :TEST IF COULTER CONFIG. 


DRi1-K LOGIC TEST MAINDEC-11-DZDRGD _— MACY11 27(663) 


DZDRGD.P11 INITIALIZE THE COMMON TAGS 
BNE 
Si BRE FOUBUG 2077 orgy = 
564 002300 012737 170000 O01346 MOV 
ode ann 
2e8 SpSse5 0001 obe7 ee IMP 
S68 002324 004537 3: ISR 
so HS Bin cies 
71 002334 004537 002665 ISR 
255 Bossus bot PNTDIT 
S74 002344 004S37 oOD0ebeE ISR 
38 002350 1352 SWPOSB 
352 00137 MINSIN 
577 002354 004537 O02666 JSR 
578 002 013622 SUTRAB 
£23 002 001374 TRANST 
aH 002364 012737 010000 001124 Pi 
583 000372 033737 O0112e4% 9001372 10% BIT 
584 o02400 001407 BEQ 
S85 002402 033737 001124 001374 BIT 
S86 002419 001403 BEQ 
587 002412 104007 ERROR 
$83 002414 000137 001400 IMP 
~) 
420 7 001124 118: R 
cel GEESE RALEZ an: 
94 426 O04 002666 R 
Sa eaeg iro 
596 002434 001366 BRLEV3 
£37 002436 000137 002752 IMP 
599 
600 OO0f442 021627 001000 YECTRP: CMP 
cy Mees tees ms: 
ate 0024 0776 . BR 
604 002454 021627 o00e00 1S: CMP 
EDe DOSES | ADODNS 718: BALT 
nk an: 
$ Vv 
6 press E5935 005004 oo0e664 SUB 
610 002500 032777 O20000 176422 BIT 
£11 002506 oO10S0 BNE 
£12 002510 104401 opesiE TYPE 
(1) O02514 o00417 BR 
(1) 765%: .ASCIZ 
(1) ooess4 b4g: 


TOL gl TO UNEXPECTED VECTOR 
(SP>, #1900 
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Seg one: 


seu & e 

3$ :BR IF NOT 
#-1,NOTLCH sLOAD COULTER JUMPER CONFIG. 
#170000, INTBIT 
#170000, TRANST 
IOTES sRUN THE LOGIC TEST WITH COULTER JUMPERS 
RS, TALK ‘TALK TO THE ANIMALS 

;ABOUT NON LATCH INPUT SITS 
RS, TALK : TALK TO THE ANIMAL AGAIN 

;ABOUT THE INTERRUPTING BITS 
RS, TALK !ISN’T THIS SOARING 

;AGAIN-ABOUT THE MINUS INPUT SITS 
RS, TALK ;HO-HUM 

:AGAIN-ABOUT THE TRANSITION BITS 
DETERMINE THAT THE OPERATOR DID NOT MAKE m LOGICAL SWITCH ERROR 
#81T12, $GDDAT TEST gr 
SGODAT ; MINSIN TES I NE INPUT BIT 
$GDDAT, TRANST : TEST IF TRANS. INPUT 
11$ :BR IF NOT 
? :LOGICAL OPERATOR ERROR 

: INPUT BIT CANNOT SE NEG. AND TRANS. AT THE SAME 
BEGIN ; 
$GDDAT :MOVE LEFT 
ae :BR EEL DONE 
RS, TALK ;ASK THE OPERATOR 

: ABOUT PROGRAM OPTIONS 
IOTEST 


; TEST 4 - PROGRAM CODE 

{FATAL BUS TRAP IN PROGRAM AREA 
;TEST IF IN SACRED VECTOR ARES 
;BR_IF NO 

;FATAL VECTOR TRAP 

;GET Mg Te de ree OCCURRED TC 


70$ 
(SP), #200 
2s 


71$ 1 
(SP)+, 725 


#4,72 MAKE 

#SW13, ISWR ‘TEST IF TYPE EeacR INHIBIT 
3 NHIBIT 

65$ 55 TYPE aati! Er ING 


43 “GET OVER THE ASCIZ 
C15)<12>/DRLIK INTERRUPTED TO LOC. 7 


OR11-K A ee TEST MAINDEC-11-DZDRGD  MACY11 27(663) 
DZORGO .P 


KOON ---~-- Ooo 
TU 0 bo 
OWONGM.- ~~ - WICwW 


003024 


013746 


1344 
eet 
ooo420 


042737 
032777 
001401 
000900 


ea; 
01373 

000137 
oo0c00 


104006 


001371 


002664 
002570 


000097 
100009 


002664 
002776 


002700 
002744 
001140 
017443 
176214 


176200 


001306 
001310 
001316 


000240 
o0de42 


004700 
001076 


002664 
176274 


001324 


000176 


000002 


00132e 
001324 
001329 


»-67§: 


ae 


4§: 


723: 


;OPERATOR QUESTIONS AND ANSWER ROUTINE 


TALK: 


10$: 


1$: 


es: 
1i$: 


-ASCIZ 


BIC 
BIT 
BEG 
HALT 
CMP 
MOV 
JMP 


MOV 
T 


MOV 

BR 
TYPE 
DEPCNT 
HALT 
MOV 
RTS 
NOTLCH 


HOe2 


19-DEC-76 08:2& PAGE 
DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR 


72$,-(SP) 
67$ 


le-3 
SES 3C22 


;LOAD VALUE TO BE TYPED 


53 Tyne ASCIZ STRING 
: T CVER THE 


ASCIZ 


6S 
7 AND WILL NOW USE THAT VECTOR/<1$><1e> 


“7,7 
asi, aswR 


(SP)+, (SP) + 
72$, DRIV 
RBEG2 


(RS)+, 10$ 
(R5)+,11$ 


SWR, #SWREG 
. SMSWR 
(SP)+, aSWR 
2s 


JSWR,d11$ 
RS 


; UNEXPECTED INTERRUPT 
ERROR 6 


UNEXPT : 


IOTEST: 


RBES2: 


cs: 


RESET 
M 


BASEBA, DRADD 
BASEIV, DRIV 
NMBEXT ; NBEXT 


(R2)+) (Re)+ 
Re, SaSCMTAG-2 


;MASK OFF LOWER 3 BITS 
TEST IF HALT ON ERROR 


-BR_IF NO 
;0R11K coat | MWe eee WILL NOW USE THAT VECTOR 


NEW VECTOR ADDRESS 
TEST THE ORI1K AT THE NEW VECT 


;GET ASCII POINTER 
;GET POINTER TO DATA FROM OPERATOR 


;TELL OPERATOR TO LOAD SWITCHES 
TEST IF SWITCH REG. EXISTS 


:TYPE “SWR =" 


READ OCTAL 
:SAVE THE SWITCHES 


;TELL OPERATOR TO DEPRESS CONT 
:WAIT FOR OPERATOR 
:LOAD SWITCH VALLE 


;EXI 
;POINTER TO DATA TO BE LOADED 


13 eal INTERRUPT DURING A SUB-TEST 


;LOAD INITIAL STARTING ADDRESS 
: LOAD INITIAL STARTING VECTOR 
:RELOAD # AVAILABLE 


;LOAD R1 


tt) THE ADDRESS 
;LOAD aan PC .RC” 


; BUMP 
:TEST FOR LAST 
BR UNTIL DONE 
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Pll DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR SEQ 0022 
IOTST1: RESET 
ae BpSHS iiettigers 003036 i PC ,SETADD :SET UP BUS ADDRESS AND VECTOR 
664 003036 013737 001322 001334 SETADD: MOV DRADD, GRSTAT sLOAD 1ST ADDRESS 
S65 003044 013737 OO0i 001336 MOV DRADD , GROAI ‘LOAD 2ND ADDRESS 
Pes popes % ppt apy ; : 10 LOAD 3RD ADDRESS 
Bee Baapee be3s39 vb Mey RGMRR Ao ; 
653 903074 013737 001322 001342 HOV DRAOD GRBHIO ;LOAD 4TH ADDRESS 
| 
67 Boat 16 53% BOO ve v Baty Q ;LORD FIRST VECTOR 
67. 116 013737 001324 0013S2 MOV DRIV, GRIVSA 
673 003124 737 oo0002 001352 ADD #2, GRIVSA 
674 003132 013737 001324 001354 MOV ORIV, GRIVB ;LOAD 2ND VECTOR 
675 003140 062737 000004 001354 #4. GRIV , 
676 003146 013737 001324 001356 MOV ORIV., GRIVSB 
677 003154 737 000006 001356 0 #6, GRIV 
678 003162 RTS C 
679 002164 013737 001312 001360 IOTTS1: MOV BASEBR, CIOBRL ;LOAD BR LEVEL 
680 003172 005037 001370 CLR ODDJMP’ 
681 176 053737 001372 001370 BIS NINSIN, ODD IMP SET MINUS INPUT BITS 
682 003204 053737 001374 001370 BIS TRANST, ODDJMP :SET TRANSITION INPUT BITS 
683 003212 012777 GOe74 176130 MOV #UNEXPT. IGRIVA :RESET INPUT VECTOR 
Bisse Glerry GREE U7eies FY RNAP DiRIv@ «RESET OUTPUT VECTOR 
(1) pp sse Bt5555 BB5 548 176114 MOV sSUB SoAT ice 
bay PTTETTTTTTTTTTTETETOVTTTITITT TTT TTT TTT TTT TTT ttt t ttt itt itt ities 
(3) kT 1 TEST FOR NO BUS ERRORS 
(3) o KELKKEKSSKKRELEKE RES SRR LEE RAL EAA ALES AL SAAA RSLS RAF HAELA EL ELF LATS 
(2) 003242 o00004 téT1: SCOPE 
BBS oo3e04 005077 176064 CLR aGRSTAT 
be pp S524 stand 17606 CLR JGRDIO 
689 5 RERAARAK EA EAE ERA EEL ERLE REL EEL A REALL ELA RL ALARA RARER RAR EARL ERE ES 
(3) ; TEST 2 TEST THAT OUTPUT REG. CAN HOLD 8-1 
(3) are eT LG nscunenthsenoneabeuatavctebebosenstbuccsneensenauseeses 
50 BO SEe Tee 177777 901124 tbe: aa . AT ;LOAD_EXPECTE 
he 
Bap 6 Bp SSS6 Bt 536 177777 eae MOV 4} BERT L ONES Q Rests STER 
tes gee che Ge || IY aint 
Faq Shae03 B53%87 : HE SRDRRT, :;BR IF EQUAL 
695 003314 icf4o03 ERROR 3 ;REG WILL NOT HOLD ONES 


DRIi-K LOGIC TEST MAINDEC-11-DZDRGD MACY11 27(662) 
OZORGD.P11 T3 


J0e 
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TEST THAT RESET CLEARS OUTPUT REG. 


697 aT 2 TEST THT FESET CGLERMS QUIPUT EG 
(3) : TEST 3 TEST THAT RESET CLEARS OUTPUT REG. 
(3) + RESRKERHAARARSARARARA SARL LAA AA AA AAAAAARAAARA RAL RAF RAARALASFLEAE 
(2) 003316 o00004 +873: SCOPE 
(1) 003320 012737 OO0D40 001166 MOV #40, STIMES :;DO0 40 ITERATIONS 
698 003326 001124 CLR $GDDAT 
699 777 177777 176000 V #-1,GRDIO 
SET ;SET DATA To ALL ONES 
701 2 017737 175772 001126 MOV 9GRDIO, SBDDAT re bee OUTPUT REG. 
78 BR Sze9 partie PER oR si FERC FAILED TO CLEAR 
1 . eee eee eee) TAT OUTPUT REG CAN HOLD eee 
(3) :&TEST TEST THAT OUTPUT REG. CAN HOLD #52525 
(3) + A, i OR A, 
(2) 903354 go00004 tty: SCO 
706 002356 012727 oSe2S525 001124 MOV #52525 , SGDDAT sLOAD EXPECTED VALUE 
707 003364 012777 052525 175746 MOV #52525, IGROIO 
708 003372 017737 175742 001126 MOV a ; T ;READ OUTPUT REG. 
709 003400 023737 O0112e4 S0l126 CMP $GDDAT; SBDDAT : COMP 
710 003406 001401 BEQ TSTS IF EQUAL 
fil 003410 104003 ERROR 3 ;DATA NOT=S2525 
713 SHE KERKREAA SARL RRE RS LAAAEARAARS ELA RASA AERARALAALA SRA LA AAA AREE 
(3) iRTEST 5 T THAT OUTPUT REG. CAN HOLD #125252 
(3) ol in RD, 
(2) 003412 gO0004 +éTs: SCOPE 
714 003414 012737 125252 001124 MOV #125252, SGDDAT ;LOAD EXPECTED VALUE 
71S O03422 0120777 e525 175710 MOV #125252; JGRDIO 
716 30 017737 175704 001126 MOV JGRDIO, $BDDAT ;READ OUTPUT REG. 
717 003436 023737 001124 001126 CMP $GODAT, 8 
718 444 001401 BEQ ST6 ;;BR IF EGUAL 
713 003446 104003 ERROR 3 ;DATA NOT=1252S2 
7el = RKEKAEASSSRA RA AAA SAAR LAR AEAA SAHARA KAA RE LSAA LARA SLA RA AAARLAAARLRE 
(3) TEST 6 ST THAT OUTPUT REG. CAN HOLD A COUNT PATTERN 
(3) © EKER KSEREKERARA AEA RRA RKAREAEARARA LARA AASAARARLA LALA SEAS RAERELEE 
(2) . 003450 oo0004 tSTs: SCOPE 
(1) OOs45e 012737 OO0004 001166 MOV #4. STIMES ;;D0 4 ITERATIONS 
722 003460 012727 003472 001110 MOV sot SLPERR LOAD SCOPE. ERROR RETURN 
723 0034 37 001124 CLR $a00ar EO he 
724 0034 13777 001104 175640 23: MOV BORAT IGROIO THE ‘Qutrut RES. 
725 0035 17737. 175634 001126 MCY oe SBDDAT 
726 003506 023737 OD1124 O01126 CMP $GDDAT, SBDDAT a 
727 003514 0601401 BEQ 1$ ::BR IF EQUA CAL 
728 003516 i04003 ERROR 3 ;OUTPUT REG. FAILED TC HOLD CCUNT PATTERN 
723 602520 005237 001124 13: INC $GDDAT : UPDATE THE F TTERN 
730 903524 001362 BNE 2g :TRY AGAIN 


SES 


c024 


~<a oe eee ae 


02 
one 
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FLOAT A 1 ACROSS THE OUTPUT REGISTER SEQ ones 
« SRSSSRSSSSSASSEKE SAAS SAALSARAARAELARAALSLE RARE LRA RARLRASLSLEESEZES 
 RTEST ? FLOAT A 1 ACROSS THE OUTPUT REGISTER 
* SRERSSRAAARALAARAAARAARARAL SARA RAAS RELA RARER RALARARAAARRSALASLEZEG 
003526 pogo +617; SCOPE 
00 12737 003544 001110 MOV :LOAD SCOPE ERROR RETURN 
003536 012737 000001 001124 MOV saito-se SEDCAT ‘LOAD EXPECTED VALUE 


Bhaeca Beses> boris izssee (8 ©Bte = BEABAY. acroro eRe att 
835537 foriss BbLLSe ats gEsBH Hanh ‘ RESULTS) 
003674 


001401 REQ 
104003 ERROR 3 
003576 006337 001124 2s: ASL $GDDAT SHIFT FT EXPECTED DATA 
003602 001360 BNE 1$ 
, seennnrcbaueeassassnseusanenssseauecoobssasscatessssessscnecoes 
t ETEST 10 FLOAT A O ACROSS THE OUTPUT REGISTER 
© RELERRSSRESERESARASASRARALAAE RE RAAAAAAAARAALRALAALARRARA RASA REALE 
ea 54 0 ¥8t10: ao : PERR AD SCOPE ERROR RETURN 
ee ue +4 
Besers 815535 BaaRES BRIA ney rab rat§ DAT iL BRR PCPER TER OR, 6 
003622 012777 177777 175510 1S: MOV 1 ,36RD10 ;LOAD OUTPUT TO A ONE 
003630 043777 001124 175502 BIC Scobar IGRDIO ?CLEAR A 
003636 017737 175476 001126 MOV JGROIO, $BDDAT *READ OUTPUT REG. 
003644 005137 001126 COM $BDDAT :COMPLEMENT IT 
903650 023737 001124 001126 CMP S$GDDAT , SBDDAT “EQUAL ? 
003656 001401 BEQ 2$ ‘BR IF EQUAL 
003660 104003 ERROR 3 
6337 001124 2s: AS $GDDAT ;SHIFT LEFT 
Boece | Sots : ig BRANCH UNTIL DONE 
: See eeeret FOR SLOW OUTPUT CATES WITH #i2ecee 
: &TE TEST FOR SLOW OUTPUT GATES WITH #125252 
ea TeOeeeayesHEaEEESMEREEAESHEOHEAAGHSEAESAOUEES COAEAEEHOGESE 
ieee M2797 25252 001124 tr: a0 te pars scooaT iL CTED VALUE 
2 V 
963700 013722 001124 17543e MOV sab08t it AD ET BUT 
means Beeler tree cm coriteny ou et 
obsr i 1pedee COM seri CNP ERENT PUT Res 
003722 005177 175412 aGROIO :COMPLEMENT OUTPUT 
003726 005177 175406 IGRDIO SOULERENT 
7 175402 COM JGRDIO MPLENENT OUTPUT REG 
Sas eae 43 ae Con apt Sup MT 0 SUTPUT RES: 
0374 p03425 ies? 001126 MOV ge010. soar ‘cop EEN REG a 
003754 023737 001124 001126 CMP $GDDAT, S$BDDAT TEST REGISTER 
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Pil Tle TEST FOR SLOW OUTPUT GATES WITH se2538 SEG O02 
$ ee eee TOR ScOM OUTPUT CATES WITH #e2s25 
i ETE T le TEST FOR SLOW OUTPUT GATES WITH #525. 
i [OE EUA REA REASEAEEEEASS REE EHOEEHDE AER EE REE RE EET E EEE 
Ses ane sve: re 
1 052525 001124 MOV #52525, SGODAT ;LOAD EXPECTED VALUE 
003776 O01 001124 175334 MOV $GDDAT , JGRDIO LOAD OUTPUT REG. 
954 177 175330 COM 9GRDIO" 5 CONPL NT OUTPUT REG 
10 177 175324 COM 0 ‘COMPLEMENT OUTPUT REG. 
geass Geir tres deol CtPeNt QUIET fee 
004024 phe tos 175310 COM Serb TO COMPLEMENT OUTPUT RES: 
004030 905177 175304 COM 9GRDI9 5C MENT QUTPUT 3. 
oo4034 005127 175300 COM GR 19 :C NT OUTPUT REG. 
40 177 17 COM JGRDIO :COMPLEMENT OUTPUT REG. 
004044 017737 175270 001126 MOV JGROIO, $BODAT : RE QUTPUT REG. 
0040S2 023737 001124 001126 CMP ’ $BDDAT ‘TEST PATTERN 
064960 001401 BEQ T13 :;BR IF EQUAL 
oo4062 194002 ERROR 3 sOUTPUT REGISTER IN ERROR 
ee ENTE T TRON HOLD LOW BYTE COUNT PATTERN: 
i kTeST 13 TEST THAT OUTPUT CAN HOLD LOW BYTE COUNT PATTERN 
a a ae 
p0406H 909004 + T13: SCOPE 
4066 012737 OO0400 001166 MOV #400, STIMES ;;D0 400 ITERATIONS 
004074 012737 904116 001110 MOV #23, $LPERR ;LOAD SCOPE ERPS RETURN 
004102 012737 001124 MOV #52400, $GDDA “LOAD EXPECTED DATA 
004116 013777 001124 175222 MOV SGDDAT; IGRDIO “LOAD OUTPUT REG. 
Gist err Goudie aorse GP Rete RED ObtrUt aes 
ee B3535 O001f24 o01126 CMP SeBDAY? SBODAT 
004140 001401 BEQ 1s ; BRANCH F EQUAL 
o04142 104003 ERROR ‘ERROR, OUTPUT REG. IN ERROR 
OO4144 105237 001124 1S: INCB $GODAT ‘UPDATE PATTERN 
004150 601362 BNE 
 SEKEKERKASLLEAA SRE RSE RHA RASA LSS RAA RRL RAS RERARRRASARASAAZHRAAAE 
tETEST 14 TEST THAT OUTPUT CAN HOLD HIGH BYTE COUNT PATTERN 
© PELE REASERERRLEARRRAARSRRA SSAA HRA ARSE SAAR ELERARRARAASRALELAELE 
Bovie4 12737 QO0400 o0116 ‘STi: Boye 0 S ;D0 400 ITERATIO 
OO¥i62 16737 go¥204 601110 nov tes $ip bPERR as LORD SCOP E ERROR RETURN 
g ; 
BBut > Bt5535 BB T34 ra $4 MOV $GDDAT , JGRDIO ; Sap aan UT REG. 
004204 113777 001125 175130 2%: MOVB § $GDDAT+1, IGREHIO LOAD THE HIGH BYTE 
004212 017737 175122 OO01126 MOV JGRDIO, $BODAT ‘READ OUTPUT REG. 
004220 023737 OO11e4 O01126 CMP $GDDAT , SBDDAT 
094226 001401 ’ BEQ 1$ ;BRANCH IF EGUAL 
004230 104003 ERROR 3 :ERROR, OUTPUT REG. IN ERROR 
004232 105237 001125 18: INCB  $GDDAT+1 
004236 O0136e BNE 2g 
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11 T15 TEST OUTPUT DATA ACCEPT FLAG 


+ EERE REEL REESE SERA RARSERAERESAALESEA EELS LE AALE LEAL RELA EEE 
:ktest 15 TEST OUTPUT DATA ACCEPT FLAG 
LEELA REAR EEL E SELES ESSE EERE EEEARELELERELS ELSES EEE ES 


a na 175078 ters: arene scror0 

pods 12 1 175062 MOV #-1, IGROAI 

004254 012737 199000 ogi 124 HOV eBit15, $G008T | LOAD of APECTED 
tea oi ve rei borize Hoy pte te ‘sie tatus 


B 
ated ERROR if TF TERROR, BIT 15 FAILED TO SET 


a aa OT hea 


; TEST TEST OUTPUT INTERRUPT ENABLE 
| peeiasaasacnantatocesseneehneueeseesbesneaeaaeeaeeneaseaneaess 


004310 ocoo004 : 
004312 005077 175016 CLR IGRSTAT ;CLEAR_ STATUS 
004316 012737 O40000 001124 MOV 881T14, SGDDAT ‘LOAD EXPECTED 
004324 012777 oO40000 175052 MOV #B1T14' IGRSTAT TOAD BIT 14 
4332 017737 174776 OO0lie6 MOV GRSTAtT. SBDDAT :READ STATUS 
4340 033737 001124 OOile6 BIT SeOBAT, $EDDRT 
004346 001001 BNE TST17 ;;BR IF SET 
904350 104001 ERROR 1 ERROR BIT 14 FAILED TO SET 
+ SEESSERSRSSSRASSEREEERSRA LAA RSA AAR SRRERARARESEAAAAAAAAARARRALALEL 
: TEST 17 TEST INPUT DATA READY FL 
+ LELKLERRSSSE REESE RARSA SAAS RRA LAA SAAS LARA AAA SRA LL AALAALEZAEE 
004 +6117: SCOPE 
4354 012737 OO0200 001124 MOV #8117, $GDDAT ; LORD a XPECTED 
m0 OI77a7 <I74NQ GO11ze MOY OSGRSTAT. SBODAT ‘READ RESULT 
1 
Bodsoe S558 At IT3G BBLISE ee RRR gBbbat Reag f RE 
004404 00140! : BEQ TST20 ::BR IF iguAL 
004406 104001 ERROR 1 “ERROR, BIT 7 FAILED TO SET 
© LERKKKESESRESLESLEAR SE LAA AAAS A LRA RAAAAEAEAREREERA REA ALAAALSRARAAAS 
AEST 20 TEST INPUT INTERRUPT ENABLE 
+ LEKKSSSEKESHRERLERE LARS SSAA ASSRAA RSLS SALE RERRALASLAAAAARAFAARLES 
00441 ppn00s T20: SCOPE 
44] 174716 CLR IGRSTAT :CLEAR STATUS 
004416 012737 000100 o01124 MOV #8176, $GDDAT sL OAD EXPECTED 
bowed p1e777 090100 1747fSe MOV #81TE. IGRSTAT BIT & 
0044 17737 i74676 OO11e6 MOV JGRSTAT . $B2DDAT *READ RESULT 
OO444O 023737 OO1124 001126 CMP $GDDAT , $8DDAT OMPARE 


tc 
Oo444—6 001401 BEG TSTel :;BR IF EQUAL 
co44so 610405) ERROR 1 ERROR, BIT & FAILED TO SET 
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TEST THAT RESET CLEARS THE DIGITAL STATUS REGISTER 
pPeeenstnttanansxsenseareareseennrane The DiciTal eTatus RecleTe 
fTEST 21 HAT RESET CLEARS THE DIGITAL STATUS REGISTER 
i deeventupeesesesinesnansusosuassansnanesonstanstanneenieasttess 
000040 O01166 MOV #40 STIMES :;D0 40 ITERATIONS 
174645 CLR aGRsTA sCLEAR STAT 
O01 128 CLR gehoar LOAD EXPECTED 
140 174634 HOV , #BITIS!BIT14!B177!B1T5, siRSTAT 
174626 001126 v @GRSTAT, SBODAT -READ RESULT 
9 T22 ;;BR IF EQUAL 
RROR ;ERROR, RESET FAILED TO CLEAR DIGITAL 
‘eras REGISTER 
. j TERA SERRE ERED T TERNAL TRONCEERS ~ CABLE MUST BE CONNECTED 
ATE T EXTERNAL TRANSFERS - CABLE MUST BE CONNECTED 
jgeeteeteesneeevenevenensnensestsesesnssssssnsssninasssnsnssion 
po2000 «174414 a9 #BIT10, aSWR ; TEST SWITCH BIT 
BEQ 1 :BRANCH IF DOWN 
p0003 001102 MOVE  &36,$TSTNM ‘LOAD NEW TEST NUMBER 
307050 a IMP ORT21 :BYPASS SOME TEST USING THE EXTERNAL CAELE 
174574 CLR JGRDIO ;CLEAR OUTPUT REGISTER 
177777 174564 MOV #-1, JGROAI :CLEAR INPUT 
1124 CLR cobaT ; CLEAR EXPECTED 
0000 174554 MOV #0, JGRDIO *LOAD THE OUTPUT 
174546 001126 MOV QGROAI , SBODAT ; READ THE INPUT 
001370 ot IC OOD IMP. $2008 
061124 s0lice MP $GDDAT’ SBDDAT CORPARE 
BEQ  =—- TST23 ;;BR IF ign AL : 
ERROR 2 -ERROR, INPUT DID NOT EQUAL THE OUTPUT REG. 
H ee a ae eer ati Bek ee 
: HTEST TEST INPUT WITH #-1 
EEsevaneneaseenstansunonenanandatoneanssnsussasaneaneasentasest 
174520 CLR JGRDIO ;CLEAR OUTPUT REGISTER : 
177777 174510 MOV a-1, aGRD8I :CLERR. UT 
77777 001124 MOV #-1'$GDDA cXPECTED 
,001370 001124 BIC ODDIMP , SGDDAT s MASK 
091124 174470 MOV $GODAT, 3GRDIO ‘bom THE QutPuT 
tap 1126 MOV DAI’ $BDDA READ I 
£01370 001126 BIC ODD IMP’ $BDDAT 
001124 O01126 CMP $GDDAT , $BDDAT 5 COMPARE 
BEG TST24 ::BR IF EQUA’ 
oR 2 ERROR, INPUT DID NOT EQUAL THE CUTPUT 


SEQ o02e 
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itn 6 6 hhh ck :C::*=CS~Sst”SSS 


Tae --*~ ueeaueeaemaaeeamrememameenaemmaamemmammeni 


tér24 


T INPUT WITH #S2SeS 


Sc 
CLR JGROIO ;CLEAR OUTPUT REGISTER 

MOV #-1, IGROAT :CLEAR INPUT 

MOV ‘ $008 ;LOAD EXPECTED 

BIC - 

MOV $GDDAT; IGRDIO ; LOAD THE OUTPUT 

MOV JGRDAT ; SBDDAT *READ INPUT 

BIC IMP; $BDDA 

CMP $GDDAT; T He 

BEQ TS725 :;BR IF EQUAL 

ERROR 2 ;ERROR, INPUT DID NOT EQUAL OUTPUT 


fy RRR RRAAAAAARAE RAL RE AERA AAS RA AAAS RARE ARAL ASE SRLAELALAAAL LEELA ER ES 
es 


TEST INPUT WITH #125252 


ET irrrerr titi ritttiiitiitititiittt iii tiiiiitiiiitiiititi tiers Se 
: SCOPE 


tét25 


c 
CLR QGRDIO :CLEAR OUTPUT REGISTER 

MOV #-1, IGROAI ; CLEAR INPUT 

MOV #125252. SGDDAT ;LOAD EXPECTED 

BIC DIMP, $GCDDAT K 

MOV $GDDAT, JGRDIO : ‘LOAD THE OUTPUT 

MOV DAI’ SBDDAT :READ INPUT 

BIC ODDJIMP; $BDDAT : MASK 

CMP $GDDAT’ SBDDAT :C 

BE ::BR IF EQUAL 

ERROR 2 ;ERROR, INPUT DID NOT EQUAL OUTPUT 


SEG 0029 


2 
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11 T26 TEST THE NEG. AND TRANSITION CATCHING INPUT DATA BITS SEG 0020 
rel On TEST THE IEG AMD TRANSITION LATCHING INPUT DATA 
t ETEST 26 TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS 

; + + RESRRESRSRSSASEASSREASE SRE SSAA RARE RRARESRASRSRRRERARALERERALAEE 
o0so4%— ooco04 tST26: SCOPE 
005050 012737 000001 O01166 MOV #1, STIMES ;;D0 1 ITERATION 
OO5058 005737 001370 TST DDIMP -TEST IF ANY ODD JUMPERS 

001461 BEQ STe7 ;;BR IF 
005064 012737 010000 001124 MOV #BIT12, $GDDAT ;LOAD TEST BIT 
005072 033737 001370 O011e4 1S: BIT ODDJMP? $GODAT ; TEST IF ODD JUMPER BIT 
005100 001447 BEQ 2$ 
005102 033737 001344 001124 BIT NOTLCH, SGDDAT {TEST IF LATCHING INPUT SIT 
By tee wes ine nee 
phe isp We hat io4 1oisi0 BIC sagen 10 : LEAR ANTPuT BIT 
005134 017737 174176 001126 MOV JGRDAI, SSDDAT ;REA D INPUT REG 
005142 023737 001124 O01126 CMP $GDDAT; $BDDAT 
005150 001401 BEQ 3$ BR IF EQUAL 
005152 194002 ERROR 2 ‘ERROR, NEG. INPUT OR NEG. TRANSITION 
: INPUT BIT FAILED TO SET INPUT REGISTER 
005154 033737 001124 001372 3s: BIT $GDDAT, MINSIN :TEST IF NEG. INPUT BIT 
005162 O010i6 BNE es ; 
095164 012777 177777 174144 MOV 1 .9GROAL :CLEAR_ INPUT 
005172 0S3777 001124 174140 BIS ScobAT ROIO ‘LOAD OUTPUT 
017737 174132 001126 MOV SeROAT’ » SanpAT :READ INPUT 
005206 023737 001124 O01126 CMP $GDDAT, SBDDAT 
005214 001401 BEG 2g :BR IF EQUAL 
005216 104002 ERROR 2 ‘ERROR, POSITIVE INPUT TRANSITION 
‘LOGIC FAILED TO SET INPUT REGISTER BIT 

005220 006137 001124 23: ROL $GDDAT ;CHANGE DATA PATTERN 


O0S2e4 1033e2 Bcc 1$ :BR IF MORE DATA 


DO3 
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DZORGO.P FLOA ACROSS NON-LATCHING INPUT BIT 
as5 eee Las Eat Da 
(3)  eTEST 27 FLOAT A 1 ACROSS NON-LATCHING INPUT BIT 
(3) es LE EE Bl Rk UL 
(2) 005226 oo00004 t$127: SCOPE 
243 005230 012737 OO0S2S56 001119 MOV #2$, SLPERR ;LOAD ERROR SCOPE RETURN 
945 % 0127 1 001364 MOV I Eve D 
Q46 pres3e p1g734 1 001366 MOV NOTH EV3 CET NOL bar 
947 905252 001366 COM V 
948 005256 013737 001364 001124 2s: MOV BRLEV2, SGDDAT ; COMPLE 
949 4 033737 001124 po1390 BIT $GDDAT, ODDIMP TEST IF ODD JUMPER 
9s0 2 00104e BNE 1$ ‘BYPASS IF ODD JUMPER 
951 005274 033737 001124 001344 BIT §GDDAT , NOTLCH TEST FOR NON-LATCH 
$e 005302 001436 BEQ 1$ :BR IF LATCHING 
954 005304 013777 001124 174026 MOV $GDDAT, 9GROIO ;LOAD OUTPUT 
955 005312 017737 174020 001126 MOV a : INPUT 

095320 043737 001366 O01126 BIC BRLEV3, Hea !MASK TO LATCH SITS 
957 023737 O011e4 o01126 CMP $GDDAT, $BDDAT : COMPARE 
958 005334 001401 BEQ 3$ :;BR IF EQUAL 
969 005336 04002 ERROR 2 ; INPUT REGISTER IN ERROR 
360 WAS CORRECT LATCH/NON-LATCH SUPPLIED ” 
36 :SUB-TEST CLEAR THE OUTPUT BIT AND TEST THE INPUT DOES NOT LATCH 
964 005340 043777 001124 173772 3S: BIC S$GDDAT , IGRDIO ;CLEAR OUTPUT BIT 
965 005346 017737 173764 001126 MOV JGRDAI; SBDDAT T 
966 005354 043737 001366 OOlict BIC BRLEV3’ $BDDAT : MASK 0 LATCH BITS 
967 005362 005037 001124 CLR $GDDAT CLEAR EXPECTED 
968 005366 033737 O01364 001126 BIT BRLEVe2, SBDDRT - TEST FOR BIT 
969 005274 901401 BEQ 1$ ::BR IF CLEARED 
976 005376 ic4O02 ERROR 2 INPUT BIT LATCHED IN ERROR 
271 WAS CORRECT LATCH/NON-LATCH SUPPLIED ? 
873 005400 996337 001264 1S: ASL BRLEV2 : CHANGE PATTERN 


oe COS404 O0013c4 BNE 2$ ;BR UNTIL DONE 
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Pll 730 FLOAT A 1 ACROSS LATCHING INPUT BITS Sea co32 
jseestanenennengeseste Taras LATING IeUl 8Iff 
:ATEST 30 FLOAT A 1 ACROSS LATCHING INPUT BITS 
“gL agpmecyaguge oro ain err pepeenpigeene emerpingias: 
oos4os oocc04 +6730: 
005410 012737 005436 001110 aoe #2$ LOAD ERROR SCOPE RETUR 
005416 012737 090001 9001124 MOV srtoe SECBAT $LOaD D EXPECTED ve VALUE 
os424 905077 173710 CLR aGROIO :CLE 
430 012777 177777 173700 MOV 8-1, JGROAI ‘CLEAR INPUT 
4 7 4y : T T,NOTLCH TEST F NON-LATCHING 
436 939737 001124 001344 2s git $GDDAT , NOTLC TEST FOR. OR N-LATCHI 
O0S446 033737 001124 001370 BIT $GDDAT , ODD IMP eect F FOOD JUMPER 
005454 O01015 BNE 1$ :BYPASS IF ODD JUMPER 
OOS¥S6 013777 001124 173654 Nov $GODAT , AGROIO o. TUL, REGISTER 
Bpeusc BOS0z5 15303 001126 MOV SERB AY, SB0DAT ‘See reutF 
005476 023737 001124 001126 CMP SGDDAT, SBODAT a is COMPARE 
Bpeebe 104 FES oR i a = PNPUT REGISTER FAILED TO LATCH DATA 
005510 053777 001124 173620 1S: BIS $GDDAT, IGRDAI :CLEAR INPUT BIT 
S516 006337 901124 ASL $GODAT ; CHANGE PATTERN 
€522 00134 BNE 2 *BR UNTIL DONE 
H Soe eee ee eee T AO ACROSS LATCHING IMUT BITS 
: ETES FLOAT A O ACROSS LATCHING INPUT BITS 
Tee at ceuaeedeeeuseLastonaaUTenSeSUseaseeneuseseneeuaceseees 
ooss24 sit? COPE 
ooss26 oa? 005554 001110 MOV #23, SLPERR -LOAD ERROR SCOPE RETURI! 
S534 912737 000001 001366 MOV sE1tO BRLEV3 it baD EXPECTED 
5542 173572 CLR aGROIb ‘CLEAR OUTPUT REGISTER 
OOSSYE 012777 177777 173562 MOV #-1, JGROAI CLEAR INPUT 
Oos554 9337 7 001366 OO01344 2S: BIT BRLEV3, NOTLCH is FOR {LATCHING 
Beee 0 7 ; 001124 9801370 art $GDDAT , ODD IMF pe ) 
Bpee 2 B87 026 - NE 3° . ‘Testd f amit TEPER BIT 
005574 012737 177777 001124 MOV #-1, $GDDAT ape 
certs Grey Gotee Se RT nee ort 
Porte Bisse, pbt ee Okey MOV Scboat Haast TOAD OUTPUT 
005624 005077 173510 CLR aGR : CLEAR STPUT REGISTER 
7737 17 MOV RDAI, AD INPUT 
Bhepae 855539 Aaires Botise moe BRBD AI. gEpPRT COMPARE 
905644 001401 BEG 1$ ::;BR IF éoua 
OOSbY4E 104002 ERROR 2 oNEUT REGISTER FAILED TO LATCH DATA 
Q0S650 053777 OO1366 173460 1S: BIS BRLEV3, JGROAI :CLEAR INPUT BIT 


OOSESE 006337 001366 ASL —«-BRLEV3 “HENGE PATTERN 
Speers Sor as4 BNE aS eee TL CONE 


2 
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tf 
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nen 
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OR SLOW INPUT GATES WITH #l2SeSe2 


001124 


173410 


s EHERRRAELAAAL ALAR AA LASAAAA LALA LAS LAALE LAER ALAALAAALASSASSALELES 


:&TEST 32 TEST FOR NPUT GATES WITH #125252 
=  SESRSSRESARKASLSRARS RESALES ERASSS AAA AAASAAARLARL ARE LAAASARSLELEE 
732: SCOPE 

MOV #125252, $GDDAT ;LOAD EXPECTED 
BIC NOTLCH, $GDDAT : CONVERT 
BIC 90 IMP, $GDDAT : 
MOV DAT; RO !LOAD PATTERN 
CLR JGRDIO ‘CLEAR OUTPLT REGISTER 
MOV #-1, IGRDAI :CLEAR INPUT 
MOV RO, IGROIO sLOAD OUTPUT 
CLR IGRDIO :CLEAR OUTPUT REGISTER 
MOV JGRDAI,R1 ;READ_INPUT 
BIS R1, JGROAI ?CLEAR INPUT 
MOV RO, IGROIO :LOAD OUTPUT 
CLR GRDIO :CLEAR OUTPUT REGISTER 
MOV JGROAI,R1 ?READ INPUT 
BIS 1, IGRDAI :CLEAR INPUT 
MOV RO, IGRDIO :1.080_ OUTPUT 
CLR aGRDIO :CLEAR OUTPUT REGISTER 
MOV JGROAI,R1 :READ INPUT 
BIS 1, 0GROAI :CLEAR INPUT 
MOV RO, IGRDIO ;LOAD OUTPUT 
CLR RDIO :CLEAR OUTPUT F” LISTER 
MOV JGRDAI,R1 *READ INPUT 
BIS , aGROAI :CLEAR INPUT 
MOV RO, IGRDIO sLOAD OUTPUT A 
CLR ROIO :CLEAR OUTPUT REGISTER 
MOV AGRDAI , R1 ;READ_INPUT 
BIS R , aGRDAI :CLEAR INPUT 
MOY RO, IGRDIO ;LOAD OUTPUT 
CLR IGROIO ?CLEAR OUTPUT REGISTER 
MOV JGROAI RI READ INPUT 
BIS RI, aGRORI :CLEAR INPUT 
MOV RO, IGRDIO ;LOAD OUTPUT ‘ 
CLR IGROIO :CLEAR OUTPUT REGISTER 
MOV JGROAT .R1 *REOD INPUT 
BIS R1, JGROAI :CLEAR INPUT 
MOV RO, IGROIO ;LOAD OUTPUT 
CLR aSRDIO :CLEAR OUTPUT REGISTER 
MOV QGROAI,R1 READ INPUT 
BIS R1, JGROAI :CLEAR INPUT 
MOY RO, IGRDIO ;LOAD OUTPUT 
CLR aGROIO :CLEAR OUTPUT REGISTER 
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Pll T32 TEST FOR SLOW INPUT GATES WITH #12SeS2 


006156 017701 173154 MOV @GROAT,R1 ;READ_ INPUT 


006162 050177 173150 BIS R1, IGROAI ‘CLEAR INPUT 
006166 905100 COM RO 
006170 019077 173144 MOV RO, IGRDIO ;LOAD OUTPUT 
006174 005077 173140 CLR IGROIO :CLEAR OUTPUT REGISTER 
306200 017701 173132 MOV JGRDAT RI *READ INPUT 
ei 177 173126 BIS R) , aGROAI ‘CLEAR INPUT 
8 10077 173122 MOV RO, IGRDIO ;LOAD OUTPUT 
906216 005077 1731! CLR IGROIO :CLEAR OUTPUT REGISTER 
bee2 017701 17311 MOV JGRDAT ,R1 ‘READ INPUT 
050177 173104 BIS R1, IGROAT :CLEAR INPUT 
006232 005100 COM 
6234 010137 001126 MOV R1, SBDDAT ;LOAD READ 
40 00240 NOP 
006242 000240 NO® 
244 0002040 NOP 
006246 023737 001124 001126 CMP $GODAT, S$BDDAT - COMPARE 
coses4 00140: BEQ TST33 :;BR IF EQUAL 
Sb 104002 ERROR 2 s INPUT GATE SLOW 
as HSERAE KAA KAA RASA ERA LA LARA LAAA LS LA LALA LRAALS RELA RASS RAAAFELLEREE 
!&TEST 33 TEST FOR SLOW INPUT GATES WITH #S2Se; 
© EREFKEZSELRAAERALARAESARELALASSAAAALARSAAAARAELARAAAFRAAERAAAAKEE 
006260 op0004 t$133: SCOPE 
006262 012737 OS2525 901124 MOV #52525 , SGDDAT ;SETUP EXPECTED 
006270 043737 001370 001124 BIC ODDIMP’ $GDDAT :MASK ODD JUMPER BITS 
006276 943737 001344 001124 BIC NOTLCH: $GDDAT : CONVERT 
006304 013700 001124 MOV $GDDAT; RO 
006310 005077 173024 CLR JGROIO ;CLEAR OUTPUT REGISTER 
006314 012777 177777 173014 MOY #-1, JGROAI :CLEAR INPUT 
006322 010077 173012 MOV RO, IGRDIO ;LOAD OUTPUT. 
006326 905077 173005 CLR IGRDIO :CLEAR OUTPUT REGISTER 
006332 017701 173000 MOV JGROAI, Ri :READ INPUT 
006336 O0S0177 172774 BIS R1, IGRDAT :CLEAR INPUT 
006342 005100 COM R 
006344 010077 172770 MOY RO, IGRDIG ;LOAD OUTPUT 
906350 O0CS077 172764 CLR JGRDIO !CLEAR OUTPUT REGISTER 
006364 017701 172756 MOV JGRDAI,R1 : T 
006360 050177 172752 BIS R1, JGROAI :CLEAR INPUT 
Soe see Sie 17274 ou f DIO OAD OUTPUT 
Bpe ass Merete 17274 CLR BOATS aoa STPUT REGISTER 
006376 017701 172734 MOV JGRDAI ,R1 :READ INPUT 
O06402 050177 172730 BIS Ri, IGROAI :CLEAR INPUT 
006406 005100 COM RO 
906410 010077 172724 MOY RO, IGRDIO ;LOAD OUTPUT 
Beas bra, lee aoe ‘eae Oe 
Boe NS4 Benig? i> 70€ BIS RP aGROAT :CLEAR INPUT 
006430 O0Sicc COM RO 


HO3 
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DZ0RGD.P11 733 TEST FOR SLOW INPUT GATES WITH #52525 

(1) 006432 010077 172702 MOV RO, IGRDIO :LOAD OUTPUT 
(2) 906436 005077 172676 CLR IGRDIO : CLEAR OUTPUT REGISTER 
(I) O06442 017701 172670 MOV IGROAI, Ri : RE 
(1) QO6446 050177 172664 BIS R1, IGROAI : CLEAR INPUT 
(1) O064S2 005100 COM 

(1) QO06454 010077 172660 MOV PO, IGRDIO sLOAD OUTPUT 
(2) 006460 605077 172654 CLR JGRDIO : CLEAR OUTPUT REGISTER 
(1) O06464 917701 172646 MOV JGROAI ,R1 "READ INP 
(1) QO6470 OS0177 172642 BIS R1, IGROAI : CLEAR INeUT 

(1) 474 905190 COM RO 
(1) 476 Ol 172636 MCV RO, IGROIO :LOAD OUTPUT 
(2) S02 005077 172632 CLR JGROIO : CLEAR OUTPUT REGISTER 
(1) 006506 017701 172624 MOV JGROAI,R1 : READ 
(1) O065i2 050177 172620 BIS , aGRO : CLEAR INUT 
(1) 906516 005100 COM 

(1) 520 010077 172614 MOV RO, IGROIO sLOAD OU 
(2) Sob5e4 77 172610 CLR aGROI0 ; CLEAR raUTPUT REGISTER 
(1) 1 172602 MOV GRDAI,R1 
(1) 534 050177 172576 BIS R1, GRD + OLEAR INPUT 
(1) SOBEG 905100 COM RO 

(1) 006542 O1 172572 MOV RO, IGRDIO sLOAD OUTPU 
(2) 006546 005077 1725b6 CLR IGROIO CLEAR GuTPUT REGISTER 
(1) 006552 017701 172560 MOV IGROAI,R1 READ INPUT 
(1) 006556 050177 1726554 BIS R1, JGROAI ‘CLEAR INPUT 
(1) 906562 005100 COM RO’ 
(1) 006564 010077 172550 MOV RO, IGRDIO ;LOAD_OUT 
(3) 006573 p0s077 172544 CLR JGROIO :CLEAR STPUT REGISTER 
(1) 74 017701 172536 MOV SGROAL R1 READ INPUT 
(1) 90 050177 172532 BIS 1, aGROAI :CLEAR INPUT 
(1) O06604 005100 COM 
(1) 06 010077 172526 MOV RO. IGRDIO sLOAD OUTP 
(2) O06612 005077 172522 CLR IGROIO ;CLEAR GuTUT REGISTER 
(1) OO6616 017701 172514 MOV JGROAI,R1 "READ INP 
(1) OO06622 050177 172Si0 BIS R1, IGROAT : CLEAR INPUT 

he 005100 COM RG 

1067 O06630 010137 o01126 MOV R1, SBDDAT :LOAD VALUE READ 

1068 624 O00240 NOP 

1069 O06636 o000240 NOP 

1070 640 o00240 NOP 

i071 OO&E42 023737 OOl1e4 o61126 CMP $GDDAT, SBDDAT - COMPARE 

1072 OOf6SO 00140: BEQ TST34 R IF EQUAL 

573 O066S2 10400e ERROR 2 
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734 TEST THAT RESET CLEARS INPUT REGISTER BITS SEQ 003 
5; RERRERARRAAA SEES ERELERESLEAAAERAS SALA LRLALE LALLA ER EL ELLE LALA AES 
:&TEST 34 TEST THAT RESET CLEARS INPUT REGISTER BITS 
2 RELREKEREHLARRAARERAESAAAA SARA SE RERAAAAES LE RRLA RA ALA RRA LFAALES 
Be Oey opgo4o O01 166 ita Boye G40. STINES :DO 40 ITERATI 
Soebes 3 172480 CLR sero tO we “CLEAR OU output REGISTER 
4 an Lae 
BpeSo8 Bsns? bai io4 HR gaboaeF? it ab QUIEN 
peste Wek 724 l oo : R T AD NPuT 
BRE S45 BA a9 7 AeF 358 BGT Ise BIC SBE ORE’ SBDDAT ineck Jun 
006726 00140! BEG 18T3 :;BR IF ALL BIT SOLE 
006730 104002 ERROR NINPUT REG. PRILED TO CLEAR UPON RESET INST. 
5 REELELEAERLELEA EA EE REAL EL REE E EEE E ELE AE ERR A ER EARL EL EERE EE ES 
 STEST 35 TEST THAT WHEN OUTPUTTING THE INPUT DATA READY FLAG SETS 
© EEREESERERESE REEL EE ER ER EEAE LARS RAR RA LESS REALL A RRAL ALE RAR REL ES 
006732 ooo004 +8735: SCOPE 
006734 012737 009200 001124 Mov #8117 7 $GDOAT ;LOAD EXPECTED 
7 p0305 ate 172364 MOV 10 ; QUTPUT 0 
eee yee MOOSuE, at 2 aie ao BDDAT ip - SULTS 
Bpesss 85555 Agtisa Sortse CH er gapbat READ E 
006776 001401 BEQ ::BR IF EGuAL 
007090 id4001 ERROR SINPUT DATA READY FLAG FAILED TO SET 
;TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 
tk alam tah tata ee gt he a te gh ae oy 
 ETEST 36 TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 
os SERSSERESESELEELRE RELA R ALAS SSAA ARAL ALASAAAALAAELA RHEL LA EAAEE 
007002 cooco4 +5136: SCOPE 
007004 012737 100000 001124 MOV #BIT1S, SGDDAT ;LOAD EXPECTED 
007012 o0S077 172316 CLR acRsTat 
007016 012777 009009 172314 MOV #0, JGRDIO 
007024 22727 900000 do00000 CMP #0) # 
007032 017700 172300 MOV JGRDAI , RO ;READ INP 
007036 017737 172272 O01126 MOV IGRSTAT, SBDDAT : READ APCUL Ts 
007044 10040! BMI TST 37 ::BR IF SET 
007046 10490) ERROR 1 ; INPUT DATA READ’ FLAG FAILED TO SET 
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DZDRGD.P11 736 TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET SEG 0027 
1109 007050 ORT21: 
(4) os PEKAERKESARSRARARARRSRKEAASERE RESALE ARASLAAARASASLARARASA*SAAASSZ RS 
3) ; ATEST 37 TEST FOR UNEXPECTED INTERRUPT 
(3) o SLEAAFSAREAARASAESASRRRELEAARSAAAAAHLALARAAAAARALAAAELALA SALAS EE 
(2) 907050 onp0004 $4737: SCOPE 
(1) 9070 e737 000040 O01166 MOV #40, STIMES +:DC 40 ITERATIONS 
1110 007 at RESET 
1111 172246 CLR IGRSTAT 
111 7 0050 77776 CLR PSW 
111 7072 0127 7152 172250 MOV #1$ aGRIvA :SET UP INTERRUPT INPUT VECTOR 
1114 007100 012777 000340 172044 MOV #340, IGRIVSA | 
1115 9071068 012777 OO7i1S6 172240 MOV #25 sear ie :SET UP INTERRUPT OUTPUT VECTOR 
1116 007114 012777 000340 172234 MOV #340, IGRIVSB 
111? 007122 012777 000000 172210 MOV #0, JORDIO ; OUTPUT 
1118 007130 017700 i7220e MOV JGRDAT, RO : INPUT 
1119 007134 900240 NOP 
1120 007136 o00240 NOP 
1121 007140 oo0°40 N 
lige 7142 900240 NOP 
il 7144 005077 172164 CLR JGRSTAT ;CLEAR STATUS 
i124 007150 OO0404 BR TST4O 33 
11s 007152 104006 1S: ERROR 6 sERROR, DIGITAL INPUT INTERRUPTED 
112? 097154 do000e RTI 
1129 997 156 104006 2s: ERROR 6 ;ERROR, DIGITAL CUTPUT INTERRUPTED 
1130 097160 OO000e2 TI 
1131 1 ee aaa = a ee ne ee 
(3) : ETEST 40 TEST THAT THE INPUT CAN INTR. USING THE MAINT. BIT 
{3 )  KEKKARK SSE LEARAARARA SAA RAARSSLAA AAAS RA LHRRARAREARAARALAARERAALEE 
(2) 007162 00004 tétu0: SCOPE 
113 007164 005077 172144 aR JGRSTA :CLEAR STATUS 
1133 007170 012777 OO7242 172152 MOV #15 sGRIVA ; LOAD RETURN VECTOR 
1134 007176 012777 O00340 172146 MOV #340, IGRIVSA 
1135 007204 012777 007264 172142 MOV #2$ aGR IVE ‘LOAD OUTPUT VECTOR 
1136 012777 000340 172136 MOV 340, IGRIVSB 
1137 7220 052777 000040 172106 BIS taLTS gcRSTAT sMAINT. INT C 
11 7226 037 177776 CLR PSW ‘LOWER PSid 
1139 007232 o00240 NOP 
Hit en Sse anne BeROR 4 -ERROR, INPUT FAILED TO INTERRUPT 
Live esta o4is ER TST4] ;;BR TO NEXT TEST 
1144 ; SUB -TE T THAT IF PSW IS LOWERE GAIN NO_INT RRUPT ay L OCCUR 
1146 : P TATE RUE? OCCURS "INT DONE C’ Peo Leo 0 CLEAR Was 
1147 007242 012777 007264 172100 18: MOV #23, IGRIVA LORD INPUT VECTOR 
1148 007250 O2cb26 CMP (SP, (SP)+ THE STACK #4 
1149 007252 005037 177776 CLR + OUER PRIOR. 
1150 007256 900240 NOP 
1151 907260 do0e40 NOP 
116¢ 007262 oo0404 BR TST4] ::<NEXT TEST> 
1154 007264 o22b26 23: CMP (SP)+, (SP)+ :POP THE STACK 
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TEST THAT THE INPUT INTR. CLEARS INT. ENABLE VIA MAINT. 8I7 


172032 
soe 
2 
000040 
177776 


007422 
177776 


171789 
000100 
177776 
171674 
007534 
000340 


007Sie2 
000340 
020000 
177776 


007534 
177776 


177776 


171702 
171676 
171672 
171666 
171636 


171634 


eee ee ete eT THAT TE INPUT INTR, CLEARS INT. EMMELE VIA 
t ETEST 4] TEST THAT THE INPUT INTR. CLE NT. ENABLE VIA MAINT. BIT 
; jjceeeensnneqnenenenenssensesesennssnseatosssnssasnosecsoaiousass 
R JGRSTAT ;CLEAR STATUS 
V #15 vA ‘LOAD RETURN VECTOR 
V #340, JGRIVSA 
y 2$, IGRIVB = OUTPUT VECTOR 
V e740 OGRIYSR ;LOAD INPUT INTR. ENABLE 
BIS #B1TS, IGRSTAT :MAINT. INT C 
CLR PSW : 
iS 
ERROR sERROR, INPUT FAILED TO INTERRUPT 
18: MOV 425 aGRIVA ‘LOAD INPUT VECTOR 
CMP (SP5+, (SP)+ :POP THE STACK #4 
gR Se hpar aE EXPECTED 
MOV SDAT $BDDAT i EER ofA 
BIT oI S8ODRT ‘TEST BIT & 
BEG TST4e2 ;;BR IF CLEARED 
ROR NPUT INTR. FAILED TO CLEAR 
3S sT42 :;<NEXT TEST> 
2s: CMP (SP)+, (SP)+ POP THE STACK 
ERROR 6 UNEXPECTED INTERRUPT 
J Spegnnseennanesseeeeneeeree ater can tute LRtNG THE PAINT E 
{RTEST y2 TEST THAT THE OUTPUT CAN INTR. USING THE MAINT. SIT 
ee Mo RemgaacetE Roe remem CnmEpER RT oH: 
CLR IGRSTAT ;CLEAR STATUS 
MOV IVA :LOAD INPUT VECTOR 
MOV #340 aGRIVSA 
MOV $, aGRIVB anes OUTPUT VECTOR 
MOV $34 rt JGRIVSB 
BIS aBiT13, IGRSTAT :MAINT. INTERRUPT 
CLR LOWER PSW 
is 
ERROR OUTPUT FAILED TO INTERRUPT 


TST43 
ate bed qES], THAT IF PSWIS uBieReD: aceIN, ito, INTERRUBT WILL OCCUR 


2s: 


T DONE D HIGH’ FAILED = 
dGRIVB 


M89 yee VECTOR 
(Se, (SP)+ ‘Bop THE STACK #4 
TST43 ::<NEXT TEST> 
(SP)+, (SP)+ :POP THE STACK 
6 UNEXPECTED INTERRUPT 


PSW 


SEG 0039 
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GD.P11 T43 TEST FOR INTR. FROM DRA INPUT SEG co4e 
iicst a2 TEST FOR INR, FRE CMA DOU 
TEST 43 TEST FOR INTR. FROM DRA 
ni = A MR ls, 
007544 000004 téT43: SCOPE 
007546 90g240 
p06 39 002000 171360 ae #BIT10, ISWR ;TEST SWITCH 
001401 BEQ 1$ 
poveen Reon? 171544 is Bre peRTAT " 
ue 4 
Baveso fasts «bare?G 171552 MOV - #2$. AGRIVA SIN CASE OF INTERRUPT 
007576 012777 000340 171546 MOV aad aGRIVSA 
is CT ST MOY waa 
pee PL s 12777 uae 171506 MOV i mes an AT sENABLE INPUT INTR. 
Bree ag foe ee ey 
pee ead phen 99 17777) CLR ach + OWER R ©SW 
007644 000240 NOP ‘LET INTERRUPT OCCUR 
007646 pod240 NOP 
ia OieP7 000100 171454 : Ic #BIT&,IGRSTAT 
007662 104004 ERROR ‘, ERROR, INPUT FAILED TO INTERRUPT 
pore ee rarer 33: PRROR 6 a ;UNEXPECTED OUTPUT INTERRUPT 
007670 Oeebe6 2g: CMP (SP)+, (SP)+ 
007672 005037 177776 CLR PSW 
505077 71432 ug: CLR DGRSTAT CLEAR Tar S 
12777 746 171440 MOV #UNEXPT, JGRIVA RESET VECTOR 
007719 912777 900340 171434 MOV #340 ,SGRIVSA 


Bris SiS es Hr RY RARISL Ve RESET cura ecto 
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GO.P11 ST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG 





1696 S13 lalallala | 25 ak 7 SAERKAAKRSSRSRLSRERE Steet INPUT READY EL 
INTERRUPT INPUT BITS SET INPUT READY FLAG 
(3) sla TB RE a MR Bo 
Se ee a a 
i237 0077 002000 171175 239 88IT10, ISWR sTEST CABLE SWITCH 
1238 007742 001067 BNE TST4S | :;BYPASS IF NO 1/0 CABLE 
1633 gor? 912737 007760 001110 MOV #1$, SLPERR sLOAD ERROR SCOPE RETURN 
124: 007752 012737 000001 001366 MOV #81tO, BRLEV3 LOAD INTERRUPT B17 
eve oo7766 005037 901136 18: CLR seopat ‘CLEAR BAD DATA 
1243 4 012737 . 001124 MOV #8117, $GDDAT : 
1204S 007772 033737 001366 OU134E BIT BRLEV3, INTBIT sTEST IF THIS BIT WILL INTERRUPT 
ci Be «SBro10 330 TRY NEXT BR OUTPUT REGISTER 
171322 V 8-1 SDA ict EAR NPuY . 
; off EE ca 
17138 BIE va ser010 CLERR y i 
CL oehe Yat iETEDR FLAG FROM DATA READY 
:SHOULD REMAIN SET VIA DIRECT SET SIDE 
Hs IN TERRUPT | INPUT SWITCH IS ON 
TSTB  aGRSTAT 
BrOR 0 este iT FAILED. t0 SET INPUT READY 
weg} BPERATOR Eive CORRE ; 
INPUT INTERRUPT BITS 7? 
less 910056 3 001366 171254 28: BIC BRLEV3, IGRDIO CLEAR QUTPUT 
le 10064 653777 001366 171244 BIS BRLEV3, JIGRDAI ‘CLEAR INP 
1264 010072 905037 001124 GDDAT :CLEAR EXP CTED 
1265 010076 005077 171232 CLR JGRSTAT CLEAR STATUS 
1266 010102 117737 171226 oo1126 MOVE § aGRSTAT, $BDDAT “READ STATUS 
1267 610110 100001 BPL 3$ ::BR IF CLEARED 
1268 O101ie 104001 ERROR 1 ; INPUT READY FAILED TO CLEAR 
1270 O10114 006337 O013b6 2$: ASL BRLEV3 sCHANGE BIT 
1271 010120 001317 BNE 1$ :BR IF NOT DONE 
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DZDRGD.P11 Tus TEST THAT NON-INTERRUPT INPUT arts DO NOT SET INPUT READY FLAG SEQ o042 

1273 H itect We TEST THAT NONCINTERRUPT INPUT BITS DO NOT SET INP 

(3) : KTE TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG 

(3) ;FEEEAEEASEAHEAEEEEAEEEEEEESSELEEEOESEASSEEEEEEEAD SHOE HOREEEE CS 

2) 910122 00004 tétus: sc 

i2 10124 032 002000 171006 BIT #B1T10, aSWR : TEST CABLE SWITCH 

1e7s 010132 001050 BNE TST46 ;;BYPASS IF NO 1/0 CABLE 

ise 010134 012737 010150 001110 MOV #1$, SLPERR sLOAD ERROR SCOPE RETURN 

1678 O10142 O1e737 000001 001 366 - nov agito BRLEV3 ‘LOAD NON- INTERRUPT BIT 

ies BL8182 BAECES BRT sa ee a 

1282 010162 033737 001366 001346 BIT BRLEV3, INTBIT jrESt IF THIS BIT WILL INTERRUPT 

1283 010175 001026 BNE 3$ YES skip TRY NEXT BIT 

1284 010172 005077 171142 CLR JGRDIO CLEAR OUTPUT REGISTER 

1285 010176 012777 177777 171132 MOV #-1 SGROAL :CLEAR INPUT 

1286 010204 005077 171124 CLR TAT :CLEAR STATUS 

1287 010210 053777 O01 171122 BIS BRLEV3, JGRDIO : OUTPU 

1288 010216 043777 001366 171114 BIC BRLEV3, JGRDIO ;CLEAR OUTPUT 

1289 010224 053777 001366 171106 BIS BRLEVS, aGROIO OUTPUT 

1290 010232 005077 171076 CLR GRSTAtT :CLEAR FLAG FROM DATA READY 

1291 :SHOULD REMAIN SET VIA DIRECT SET SIDE 

1292 010236 105777 171072 TSTB a@GRSTAT -TEST READY BIT 

1293 010242 100001 BPL 3$ ;;BR IF CLEAR 

1294 010244 104011 ERROR il ; INPUT NON-INTERRUET BIT SET INPUT READY 

1295 :?9 DID OPERATOR GIVE co RRECT 

1296 : INPUT INTERRUPT BITS ? 

(Sag 

1299 C1024 006337 001366 33: ASL BRLEV3 :CHANGE BIT 

1300 pi ose 901336 BNE 13 :BR IF NOT DONE 
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DZDRGO.P THE TEST FOR INTR. FROM DRA OUTP SEG 0042 
1302 § ee ee eer FOR INTR, FROM ORA QUTPUT ettE2 
(3) ATE TEST FOR INTR. FROM DRA OUTPUT 
(3) fh: 1a, MR, * A LL, | 
2) S 4 pos T46: SCOPE 
i303 0102 3540 
1304 010260 o00c40 NOP 
130S 910262 032777 OO2000 170650 BIT ecu ;TEST SWITCH 
1306 010270 001401 BEQ 
1307 010e7e BR TST4 3 
1 10274 171034 18: LR serete AT 
1309 010300 012777 010374 171046 MOV #23 OGRIVE ;IN CASE OF INTERRUPT 
1310 010306 012777 340 171042 MOV #340. aGR 
13it b10314 013777 001352 171026 MOV aa VeR SeRTTA 
1312 010322 77 171024 CLR achivsh 
1313 010326 012777 O40000 171000 MOV #81T14, IGRSTAT ; ENABLE OUTPUT INTR. 
1314 010334 912777 00 170776 MOV #0, IGRDIO OUT 
1315 010342 017700 170770 MOV JGRDAT , RO 
1316 O10346 005037 177776 CLR PSW ‘LOWER PSW 
1317 010352 o00240 NOP :LET INTERRUPT OCCUR 
1318 010354 o00240 NOP 
1319 010356 o00240 NOP 
1320 010360 042777 oO4CDD0 170746 BIC #B1T14, IGRSTAT 
1321 010366 o00240 NOP 
1322 010370 104005 ERROR 5S sERROR, OUTPUT FAILED TO INTERRUPT 
1323 010372 O00401 BR 3$ a 
1324 010374 O22626 2s: CMP (SP)+, (SP)+ 
1325 010376 3$: 
(1) 010376 012777 O02746 170744 MOV HUNEXET aGRIVA ;RESET INPUT VECTOR 
(1) 010404 012777 000340 170740 MOV 0, IGRIVSA 
(1) O10412 012777 O02746 170734 MOV oNexey aGRIV :RESET OUTPUT VECTOR 
(1) 010420 912777 900340 170730 MOV BENET, a8 
1326 O10426 005037 177776 CLR PSW 
1367 010432 005077 170676 CLR aGRSTAT :CLEAR STATUS 
1329 5p EAR EERE EER ARERR ER EERE ELE EE 
(3) :#TEST 47 PRE-INTERRUPT SETUP 
(3) os SELERSESESESRRELEEA AREAS ASA ELSE RSA LAASSLAEAASAAAAAAAAAAAERAREE 
(2) 010436 op0004 *$T47: SCOPE 
(1) O10440 012737 000001 001166 MOV #1,$TIMES :;D0 1 ITERATION 
13320 O10446 o00005 RESET 
1331 O104SO 042737 177437 001360 BIC #177437, OIOBRL 
1332 O1045E 001001 BNE 1$ be - 
1333 01 104007 ERROR 7? :BR LEVEL INDICATED FOR DISITAL 1/0 WAS O 
1334 010462 022737 000340 001360 15: CMP #340, DIOBRL 
1335 010470 9001001 BNE es 
1336 010472 104007 ERROR :BR LEVEL INDICATED FOR DIGITAL I/O WAS 7 
1337 010474 613737 601360 901362 2S: MOV BIOBRL BRLEV1 
1338 O10s02 162737 O00040 901362 Sus #40, BRLEV] 
1239 C105i6 013737 001360 001364 MOV BIOBRL. BRLEVe 
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Pi} TS0 TEST FOR INTR. FROM DRA INPUT ON LEVEL INDICATED -1 VIA MAINT. INT SEQ cO44 
: Te TER INTR, FROM DRA INPUT ON LEVEL INDICATED. 
: ETE TEST FOR INTR. FROM DRA INPUT ON LEVEL INDICATED -1 VIA MAINT. INT 
+ LA. RR Rs do 
010516 ooc00% +éT50: SCOPE 
010520 005077 170610 CLR IGRSTAT CLEAR ENABLES 
010524 012777 010576 170616 MOV #1$, JGRIVA ;SET UP VECTORS 
010532 013737 001362 177776 MOV BRLEV1, PSW PSW 
010540 737 001376 TST JUMPER TEST IF FACTORY MODE 
010544 001403 BEQ 2g BR IF YE 
010546 012737 000200 177776 MOV #200, PSW ‘LOAD BR LEVEL #S-1 IF LOC-BOx OR COULTER MODE 
b10554 052777 OOOO4O 170SS2 2S: BIS 8817S, IGRSTAT ‘GENERATE INPUT MAINT. INTERRUPT | 
010564 900240 NOP 
010566 o00240 NOP 
010570 000240 NOP 
010572 104004 ERROR 4 “ERROR. NO INTERRUPT FROM DIGITAL 1/0 INPUT 
010574 00401 as 38 ;;BR TO NEXT TEST 
010576 022626 18: CMP (SP)+, (SP)+ 
Bt OED 012777 002746 170542 MOV eUNEXPT aGRIVA :RESET INPUT VECTOR 
010606 012777 000340 170536 MOV 0, AGRIVSA 
010614 012777 O02746 170532 MOV SUNEXPT JGRIVB RESET OUTPUT VECTOP 
0:0622 012777 900340 170526 MOV #340, Soht vSB 
010630 005037 177776 CLR PSW LOWER PSW 
| TE, _ Ee A. eee 
4 S TEST FOR NO INTR. FROM DRA INPUT ON LEVEL INDICATED VIA MAINT. INT 
+ SESSSRREESERESRA LAL RSA E SELLA RASS AAAS LRARARASLARARARAALEAA RARER KE 
010634 +4151: SCOPE 
010636 005077 170472 CLR IGRSTAT :CLEAR ENABLES 
010642 012777 010730 170500 MOV #15, JGRIVA SET UP VECTORS 
010650 913737 001364 177776 MOV BRLEV2 , PSW PSW 
010656 001376 TST JUMPER’ TEST IF FACTORY MODE 
010662 001403 BEQ 48. ;BR IF YES 
010664 612737 O00240 177776 MOV ‘LOAD BR LEVEL #5 IF LOC-BOx OR COULTER MODE 
010672 052777 OO0040 170434 4s: BIS S178 aGRSTAT GENERATE INPUT MAINT. INTERRUPT 
o10709 0002 NOP 
10702 d00e40 NOP 
010704 o002 NOP 
;SUB-TEST, NOW LOWER THE psu AND ALLOW a INTERRUPT 
010706 012777 O10742 170434 mov #2$, aGRIV VECTOR 
010714 005037 177776 CLR PSW’ :TSRER PSid 
010720 ood240 NOP 
010722 o00240 NOP 
010724 900240 NOP 
010726 000403 BR 3$ : ERROR 
010730 O22626 18: CMP (SP)+, (SP)+ 
010732 005037 177776 CLR PSW ‘ 
010736 04006 38: ERROR 6 s UNEXPECTED INTERRUPT <IS BR LEVEL PLUG CORRECT> 
10740 600401 BR S$ $ 
0107Me 022626 2s: CMP (SP)+, (SPJ+ :POP THE STACK 
010744 012777 O02746 170376 MOY #UNEXPT, JGRIVA RESET INPUT VECTOR 
010752 012777 OO0034C 170372 MOY #340, IGRIV 
O10765 012777 OO02746 170366 MOV #UNEXPT , IGRIVB ;RESET OUTPUT VECTOR 
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Pll TS! TEST FOR NO INTR. FROM DORA INPUT ON LEVEL INDICATED VIA MAINT. INT SEQ OCHS 
010766 012777 O0O340 170362 MOV ee aaves 
010774 006037 177776 CLR PSW 


Tee eee eee neat e eee TT Es DRILLS WE TO HE TESTED 
 RTEST Se DETERMINE IF MORE DR11-K’S ARE TO BE TESTED 


1 tay -+-b-1-+ a eetataaasaanaatin cet intact 

011000 900004 +éTs2: SCOPE 
Oli 012737 900001 O01166 MOV #1, STIMES :;D0 1 ITERATION 

11016 005737 001320 BYPASS: TST NBEXT ;TEST IF ANY 
011014 O01415 BEQ 1$ :BR IF NO NONE 
011016 036777 010000 170114 BIT sSule aSWR sTES BIT 11 OF SHR it mil 
Bt tb5e ete 000010 001322 St: ia ee i UBBATE ‘Device RopREss 
011034 062737 000010 001304 ADD #10; ORIV : UPDATE DEVICE VECTOR 
011042 001320 C ANOTHER ONE ? 

11 13 BYPAS1 BR IF ANOTHER 
0110S0 013737 001306 001322 1S: MOV BASEBA, DRADD “RELOAD ADDRESS 
O110S6 013737 001310 001324 MOV BASEIV, DRIV RELOAD VECTOR 
011064 013737 001316 001320 MOV NMBEXT > NBEXT ‘RELOAD NUMBER 
110 900137 011106 J : 

11076 012700 177777 BYPASI: MOV #-1,R0 
011102 900137 002776 JMP RBEG2 TEST ANOTHER UNIT 


-SBTTL END OF PASS ROUTINE 
ene ane gb ey em een en ee emanate ar eo 


; INCREMENT THE PASS reer ($PA 

sEINDICATE E END-OF-PROGRAM AF TRB PASSES THRU THE PROGRAM 
"END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

:#IF THERES A MONITOR GO TO IT 

IF THERE ISN’T JUMP TO BYPAS 


011106 SEOP: 
11106 o90004 SCOPE 
011110 005037 001102 CLR STSTNM ;;ZERO THE TEST NUMBER 
011114 005037 001166 CLR STIMES 332ZERO_ THE NUMBER OF ITERATIONS 
011120 005237 001100 INC SPASS ‘INCREMENT THE PASS NUMBER , 
011124 042737 100000 001100 BIC #100000, S$PASS ; DON” T ALLOW A NEG. NUMBER 
011132 005327 DEC (PC)+ ::LOOP? 
O11138 90001 SEOPCT: .WORD 
O1l1 ve BGT DOAGN — 
011140 012737 MOV {PC)+,a(PC)+ | $;RESTORE COUNTER 
011142 000001 SENDCT: .WORD 1 
Oiiias Olli SEOPCT Ms 
111468 104401 011213 YPE SENDMG :; TYPE "END PASS # 
0111S 013746 001100 MOV $PASS, -(SP) :5SAVE $PRSS FOR T YPEOUT 
611156 104405 TYPDS 53G0 1 YPE--DECINAL ASCII WITH SIGN 
611160 104401 911210 TYPE SENULL 3; TYPE A NULL CHARACTER 
011164 013700 oo004e2 $GETH2: MOV dee RO - ::GET MONITOR ADDRESS 
011170 001405 BEQ $DOAGN ‘BRANCH IF NO MONITOR 
911172 ooo00s RESET CLEAR THE WORLD 
011174 Ooo4710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
611176 oo02e40 NOP :: SAVE 
011200 900240 NOP ;;FOR 
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PI EN oF BBINOEE Ab O ene SEQ COME 
at oco2e4o stein NOP :;ACTLI 
stb 900137 I a(PC)+ ; ; RETURN , 
is Soar oo MNalt Ore: <Loke NULL CHARACTER STRING j 
tt 
BLE! ; if guedle 94eil8 SENDRG: “AecTZ <i> <1S> en passe 
11220 oso is0i 6201223 | 
611226 900043 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
iTHIe ROUTINE 16 USED 10 CHANGE A IG-BIT BINARY NUMBER TO A S-DI 
:ATHIS ROUTINE IS USE ED T : Ae 6-81 BINARY NUMBER TO i, S-DIGIT 
3% 
:xSTGNED DECIMAL (A i eee A spac “Wate a RTRUS Sick Witt BE TYPED 
:#BEFORE THE FIRST DIGI THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; #REPLACED WITH Spaces. 
te MOV NUM, -(SP) :PUT THE BINARY NUMBER ON THE STACK 
1% TYPDS $60 TO THE ROUTINE 
BT ED o1p04 sheet “a Fee “PUSH R K 
6+ 1530 stare ney R1?-(5P) ne Push RI oh aI TR 
Btise GISME MOY ORS? ACEP) UE Ba On STACK 
ot i538 10546 MOV Ref P) BU Pe mn 8 TACK 
Olie4¥2 O12746 oe0200 MOV #20200, -(SP) ;3SET BLANK SWITCH AND SIGN 
011246 1660S 900920 MOV 20(SP)'RS :GET THE INPUT 
011252 100004 BPL 1§ BR IF INPUT IS POS. 
011254 o0s40s NEG S ;;MAKE THE BINARY NUMBER POS. 
011256 112766 o000SS 900001 MOVE = #’ -, 1 (SP) :MAKE THE ASCII NUMBER NEG. 
011264 o0S000 18: CLR RO | ZERO THE CONSTANT NTS IN INDEX 
011266 012703 011444 MOY #$DBLK,R3 : SET UP THE OU NTER 
O11e72 112723 ooco4o MOVB 8’ ,(R3)+ ::SET ETRST PENARACTER TO A BLANK 
011276 o0So02 2s: CLR Re i tear HE BCD NUMBER 
011300 O1600! 011434 MOV $OTBL(RO),RI THE CONSTANT 
011304 160105 2S: SUB R1,RS FORM THIS BCD DIGIT 
011306 o02402 BLT 4§ -BR IF DONE 
011310 o0Se202 INC R2 :: INCREASE THE BCD DIGIT 8Y | 
011312 000774 BR 3$ 
011314 105 4 ADD R1,RS :ADD BACK THE CONSTANT 
O11316 S702 TST Re i CHECK IF BCD DIGIT=0 
11320 Sdlo002 BNE c$ ALL THROUGH IF 
011322 105716 TSTB 2s SP?) i STI DOING LEADING 0°S? 
011324 100407 MI 73 ::BR IF YES 
11326 106316 S$: SLB. sé SP) ; MSD 
011330 103003 BC 6$ ;3BR_IF _N NO 
011332 116663 000001 177777 -MOVB =: 1(SP),-1(R3) YES--SET THE SIGN 
011340 OS2702 o00060 6$: BIS #°0,Re Hie THE BCD DIGIT ASCI! : 
011344 052702 ooo040 7g: BIS #’ Re $3 MAKE IT A SPACE IF NOT ALREQOY A DISIT 
011350 110223 MOVE Re. tR3)+ ‘PUT THIS CHARACTER IN THE 5UPUT SUFFER 
011352 005720 TST (RO) + :}JUST INCREMENT ING 
011354 020027 oooo1c CMP RO, #10 ::CHECK THE TABLE INDEX 
011369 o92746 BLT 23 ::G0 DO THE NEXT DIGIT 
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Pll CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 2047 
THT eed oy C&R re 360,10 EXIT 
Bit Bape OR Ee ies cHanick fo ASCII 
011370 105726 93: TSTB ss (SP) ::WAS THE LSD THE FIRST NON-ZERO? 
O1137¢ 100003 BPL ::BR IF NO 
11374 116663 177777 177776 MOVE -1(SP),-2(R3)  ::YES--SET THE SIGN FOR TYPING 
011402 105013 9g: CLRB 3s (R33) !:SET THE TERMINATOR 
911404 O12605 MOV (SP)+,R5 ::POP STACK INTO RS 
011496 012603 MOV (5P)+'R3 ::POP STACK INTO &3 
ie een my teivm | fieye arack Ie 
BHitg t5PBe MOV (5P)+°R : POP aT ARK t § Ra 
011416 104401 o11444 TYPE SDBLK ::NOW TYPE THE NUMBE 
011422 O16666 Oo0002 oo0004 MOV b(SP),4(SP) !:ADJUST THE STACK 
011430 2616 MOY (SP)+! (SP) 
11432 pas BS RTI :;RETURN TC USER 
011434 023420 SOTBL: 10000. 
011436 001750 1000. 
11440 000144 190 
01 00 $DBLK: .BLKW 4 
: rn ies 87M MISC. EXTERNAL LOGIC TEST 
01 003036 JSR PC. SETADD ;SET UP ADDRESS AND VECTOR 
ol 040000 011560 2s: MOV #BIT14, EXTCNT :LOAD COUNT 
Ol 167642 CLR IGROIO : CLEAR OUTPUT REGISTER 
1 125252 167634 MOV #125252, IGRDIO :LOAD OUTPU 
0115 167626 011556 MOV JGROAI , EXTTMP :READ INPUT 
O1 011556 167 16 MOV EXTTMP, JGRDAI :CLEAR INPUT 
0115 167614 CLR JGRDIO :CLEAR OUTPUT REGISTER 
01 052525 167606 MOV #52525, IGRDIO :LOAD OUTPUT 
ot 67600 011556 MOV JGROAI .EXTTMP :READ INPUT 
1 115568 167570 MOV EXTTMP: JGRDAI :CLEAR INPUT 
01 011560 DEC EXTCNT :FINISHED COUNT 
01 BNE 1$ 
01 BR 2g : LOOP 
Gl EXTTMP: 0 
01 EXTCNT: O 
“SUBROUTINE TO LOAD TRAP AND POWER FAIL VECTORS 
017466 000034 SETTRP: MOV #STRAP, JBTRAPVEC ;LOAD TRAP VECTOR 
000349 000036 MOV #340, JRTRAPVEC+2 . 
Oied22 ooo0024 MOV #SPWRON, J#PWRVEC sLOAD POWER FAIL VESTOR 
000340 900026 ny $340, SNPURVEC +2 sad 
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DZORGD.P COULTER INTERFACE TEST 
14 .SBTTL sothaa ster ee® TEST 
1430 011614 012706 001100 COULTR: MOV CK, 
1431 011620 004737 011562 ISR C,SET *LOAD TRAP AND POWER FAIL VECTORS 
1432 G1ibe4 004737 003036 JSR Be’ The ‘SETUP BUS ADDRESS AND VECTOR 
i423 011630 005077 167500 CLR aT ; CLEAR INPUT STATUR RF 3 
1434 011634 012777 011676 167508 nov 0S, J3RIVA :LOAD INPUT VECTOR 
f ° 
ise BieeS baci Bice as: Here run a em oO 
1438 setae pisos 167446 4S: MOV aa agRSTAT :LORD ty TERR 
1439 011666 005037 177776 CLR to 
1440 011672 000001 WAIT :WAIT FOR OPERATOR 
1441 011674 000771 BR 4§ 
1442 011676 Oe 20$: § CMP (SP)+ (SP) 4 ;POP_ STACK 
1443 011700 012737 000106 011556 MOV #70. EXT LOAD # OF 1 MSEC DELA i 
i444 011706 013700 001314 6S: MOV tPu RO. TrOAD 1 MSEC. bef ay WEIGHT 24 FOR Tyas :620 FOR 11740 
1445 011712 005300 3$: DEC RO ; DELAY 
i446 011714 001376 BNE 33 
1447 011716 337 O11S5¢ DEC EXTTMP s FINISHED | ALL MSEC. DELAY ” 
1448 011722 001371 BNE 6$ :BR IF 
1449 011724 017700 167406 MOV JGRDAI , RO : SAVE RESUL TS 
1450 011730 010021 MOV RC. (R1S+ : SAVE IN BUFFER 
1451 011732 012777 177777 167376 MOV #-1, dGRDAI ; CLEAR INP 
1452 011740 O42790 0077 ” BIC 87777, RO 
1453 011744 OO1245 BNE 4§ BR fF NOT LAST SAMPLE 
1454 011746 010103 MOV R1,R3 :COPY R1 
145S 011750 014300 cs: MOV -(R3) RO :GET RESULTS 
1456 011752 737 011766 JSR PC, 40$ :CONVERT AND TYPE 
1457 011756 022703 017550 CMP #BUFFER,R3 ‘FINISHED ? 
1458 011752 001732 BEQ 1$ ‘BR IF YES 
1459 011764 000771 BR o$ :CONT. TYPING UNTIL DONE 
1460 - SUBROUTINE FOR THE COULTER TEST 
1461 011766 012737 OO00SS 013324 40$: MOV #55, MSGR ust 2 sFIX ASCII MESSAGE 
1462 011774 012702 013331 MOV #MSPNT 1 LOAD DEST POINTER 
1463 012000 012737 000004 011556 MOV #4 ENT THe ‘CORD COU 
1464 012006 o00404 BR 12$ 
1465 012010 O06000 10$: ROR RO 
1466 O1l2012 O06000 ROR RO 
1467 012014 006000 ROR RO 
1468 012016 006000 ROR RO 
1469 012020 010001 123: MOV RO,R1 sLOAD RI 
1470 Ole022 042701 177760 BIC $177760,Ri : MASK 
1471 012026 052701 O00060 ' BIS #60,R1 :MAKE DIGIT 
1472 Ole032 110142 MOVB R1.-(R2) :SAVE DIGIT 
1473 012034 005337 o115S6 DEC EXTTMP sFINISHED ? 
1474 012040 001363 BNE 10$ IF NOT 
1475 612042 000337 013324 SWAB  MSGRUS+2 “ADJUST MESSAGE 
1476 O12046 1049401 013322 TYPE, MSGRUS 
1477 Ole0S2 000207 RTS PC EXIT 
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LOC-80X LAMP AND SWITCH LOOP SEQ cO4e 
1479 .SBTTL LOC-BOx ohh AND SWITCH LOOP 
1480 o12054 012706 901109 LOCBOX: NOV 4s K SP 
14 ft 4 1 3 if b YPE a ;TELL OPERATOR WHAT THIS IS 
i483 012070 004537 012152 ISR INADR GET THE ADDRESSES 
14g4 o1e074 001326 012332 LOC1, och 
1486 ete Bove! 0121S¢ JSR Re TNADR ee, TER? BIODRESS 
1487 012106 001 12334 LOC2,LOCeY 
1488 Ol2112 oO040S LOCA :BR IF DONE 
1489 Bells 004537 912152 JSR RS, INAOR :GET NEXT ADDRESS 
1490 Olele0 0013 12336 LOC3, LoCsy 
1431 Olele% oo0400 BR 
1493 012126 537 012260 LOCA: JSR RS, LOUP! sTEST FOR SWITCHES AND LOAD LAMPS 
1494 Olel 1326 LOC1 
1495 012134 012260 JSR RS, LOUP1 sLOAD NEXT SET 
14968 012140 001330 Loce 
1497 Olel4¥2 004537 o12260 ISR RS,LOUP1 sLOAD NEXT SET 
1498 012146 001332 LOc3 
1500 012150 o00766 BR LOCA :LOOP BACK 
1502 012152 013537 o12252 INADR: MOV J(RS)+, 10S :GET BUS ADDRESS 
1503 O1e156 013537 Olecse MOV a(RS)+. 128 ‘GET INDICATOR 
1504 Ol2ei6e 104401 013123 1$: TYPE, | INADRH’ ;ASK FOR INPUT 
50S 012166 01374 dl2252 MOV 10$,-(SP) : TYPE CURRENT ADDRESS 
150 lei ze 1044 TYPOC 
1507 012174 104401 013166 TYPE.  INDADR ;ADD YES NO 
1508 012200 104411 ROLIA READ CHAR. AND ECHO 
1509 Olee02 40 N P 
tat ptsspe ied 012254 MOY a(SP)+, 118 :GET THE ANSWER 
1512 Ol22l2 042737 177640 012254 BIC #177640, 11S Loy OFF BITS 
ete OED Oe t3 coos 012254 a WN. 11S PRCT ERA 
tet? iS5s6 0014 BEQ 2g :BR IF NO 
S16 O12232 022737 000131 012254 CHP ae, 118 ‘ae Te on YES 

4 

tet pt S5qp iutad 000010 it dies :SET YES FLAG 
1519 012246 005725 2s: TST RS }+ 
1520 01225 2 33: RTS RS ran 
bel lee 9 60 io: Oo 
is 12254 000 118: OQ 
1523 OleeSé ooo0cco 123: 0 
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LOC-BOX LAMP AND SWITCH LOOP SEQ cOSc 


012260 013537 012326 (BuEIs nov “BRS LAMPS FROM THE LOC 80x. SWITCHES 


blecb 901901 BNE is BR IF vES 
pigese seat 012326 18: MOV 40$, Re 
012274 O62702 000002 ADD #2,R2 
012300 910203 MOV Re.R3 
O1eaGe 02 oo000e ADD te R3 

11200 MOV (Re), RO 
012310 011301 MOY (R3)'R1 
O1e312 040100 BIC R1.RO :MASK OFF BITS 
012314 041213 BIC (RE). (RB) ‘LOAD OUTPUT BITS 
O1¢318 13 ADD RO, (R3) LOAD 
01 O1e712 177777 MOV #-1, (Re) ;CLEAR INPUT 
012324 900205 RTS RS EXIT 
l NN 40$: 
le3 41§: 
le33e 000000 LOCiY: :YES/NO ANSWER TO LOC BOX #1 
012334 900000 Losey: Oo 
012336 Loc3y: 9 


7 XLO1 ADJUSTMENT ROUTINE 


012340 012706 001100 XLOIAD: MO #STACK, SP 
61 53¢9 ee biased tore PC, SETIRP :TELL OPERATOR 

bi Sseq ho4eae pt sees ISR RS, INADR -GET BUS ADDRESS 

Ole 001326 012332 LOC1,LOCLY 

012364 o004!1e BR XLO1 

012366 004537 012152 JSR RS, INAD : 
bles 001.330 012334 C2, Locey 

1 4 ¥LO10 
0124 37 012152 ISR RS, INADR 
012404 001332 012336 LOC3, Locay 
012410 400 BR XLO10 

012412 XLO10: 

Olevie 994537 o12bs4 JSR RS, XLOADJ : NOW CONVERT THE DATA AN DISPLAY IN LAMPS 
ots nooo? 7 ; it oa DATA MASK 

012422 001326 LOC1 -DRI1K BUS ADDRESS . 
012424 004537 oO12644 ISR RS, XLOADJ :NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
0124 001 0o3 .BYTE 1,4 "LOAD CHe afin SHIFT COUNT 

012432 000070 70 ; LORD BATA MASK 

012434 001326 LOC1 11K BUS RODRESS 

Cle43b 004537 o12644 TR RS, XLOADJ NOM CONVERT HE DATA AND DISPLAY IN LAMPS 
ot yyy 700 , it AB Bee ANG 

1e446 001326 LOC! ‘DRIIK BUS ADDRESS 

b1g450 004527 o12gs4 JSR RS, XLOADJ NOW CONVERT THE bara NO DISPLAY IN LAMPS 
12454 3 ll -BYTE 3,11 CH® AND SHIFT COUN 

012456 oo7000 7900 ‘OAD DAT ta MASK 

O1e460 001326 LOCl :ORL1K BUS ADDRESS 


/ 
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XLO1 ADJUSTMENT ROUTINE SEG 0051 

1872 012462 004537 012644 JSR RS, XLOADJ ;NOW CONVERT. THE para DISPLAY IN LAMPS 

(1) Levies 004 014 -BYTE 4,14 “LOAD CH® AND SHIFT COUN 

2 BR Be hisy Dena ees 

is?3 012474 poaese 012644 rid RS, XLOADJ : NOM KORVER DATA AND DISPLAY IN LAMPS 

(1) 012500 005 000 .BYTE 5,0 ‘LOAD CHE AND SHIFT COUNT 

(1) 612502 000007 7 :LOAD DATA MASK 

(1) 012504 901330 Loce :DRIIK BUS ROORESS 

1574 012506 004537 012644 ISR RS, XLOADJ NOW CONVERT THE DATA AND DISPLAY IN LAMPS 

(1) O1251 003 BYTE 6,3 ‘LOAD CHS AND SHIFT COUNT 

(1) 612514 it DATA 

$5 915225 Bb4e89 orzeus bok oaks, xLonDs oa RUS RP ORE Bata AND DISPLAY IN LANPS 

Pe) © — 

(1) pisect Oona “oe -BYTE 7,6 ‘LOAD CH# AND SHIFT COUN 

(1) 012526 700 sLOAD TA 

(1) 012530 001330 LOoce :ORLIK 

1576 Olebse 012644 JSR RS, XLOADI “NOW C THE “DATA AND DISPLAY IN LAMPS 

(1) 612536 010 O11 .BYTE 10/11 ‘LOAD CH# AND SHIFT 

(1) 012540 7000 sLOAD 

1) Oleb4e 1330 Loce :DR11K BUS ADDRESS 

OD oipeso ory Big re ie im cis OO SHIFT COUNT ON LARS 
. ‘ 3L 

(1) 52 00 pita ies Bata RASk 

578 { oe pea? 012644 Sen RS, XLOADJ NOU CONVE RT T TA DISPLAY IN LAMPS 

C1) 15278 Bis “Bad Bete 3:5 i Neo “8 AND Bolsa E ON 

Gee Bie aa 

ue 

189 B15e98 Wedd 012644 58k RS, XLOADJ AOvrES Bara ae DISPLAY IN LAMPS 

(1) 012574 013 003 -BYTE 13,3 + OAD” cis AND. SHIFT 

(1) Ot 7 70 DATA 

(1) Ol LOc3 K BUS RESS 

1580 Oieb0e 004537 o12bs JSR RS, XLOADJ : 5 NOW ConvERT THE DATA AN DISPLAY IN LAMPS 
-o! ’ ; 

(t} BtS298 ooo%dd of OAD Sata nase 

(1) Ol2612 001332 LOc3 -DR11K BUS ADDRESS 

1581 O1eb14 004537 012644 ISR RS, XLOADJ NOW CONVERT THE DATA AND DISPLAY ’. LAMPS 

(i) O12620 is O11 BYTE 15/11 “LOAD CH® AND SHIFT COUN 

(1) Ol2622 007000 7000 :LOAD BATA MASK 

(1) 012624 001332 LOC3 ?OR11K BUS ADDRESS 

1582 Ole626 004537 o12644 ISR RS, XLOADJ :NOW CONVERT THE bata AND DISPLAY IN LAMPS 

(1) 012632 016 O14 .BYTE 16,14 *LOAD CH# AND SHIFT COUN 

(1) 012634 070000 70000 :LOAD DATA MASK 

(1) 012636 901332 LOC3 :DRLiK BUS ADGRESS 

1583 012640 0900137 o1e42 IMP XLO1O 

1585 : ANALOG CONVERSION AND LOC BOX DRIVER 

1586 O12644 112577 900206 KLOADI: MOVB  (RS)+,aADCS1 L 

1587 012650 052777 O20000 000176 BIS #81713, JAD :SET UNIPOLAR 

1588 O12656 112537 013046 MOVB  (RS)+, 40S : GET SHIFT COUNT 

1589 Olecée 012537 0130s2 MOV (R5)+/ 425 -GET DATA MASK 

1590 012666 013537 013050 MOY a(RS)+,41$ : GET RI IK BUS ADDRESS 

1591 Ole672 O01464 BEQ 70$ :BR IF NONE 

1892 012674 105277 ooo1S4 INCB  aadcs CONVERT THE DATA 


a 
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GD.P11 YLO1 ADJUSTMENT ROUTINE SEG ons2 
R Ri 

Bas Gie7oe Opera? oo0004 013050 abe 84,415 GET LAMP BODRESS 

1595 012710 1 000140 1S: TSTB. = aACS ;WAIT FOR DONE 

HB GEL HS ooo roy Aoeeo A 

ie te ie om eRe 1 A tal 

1 18730 1 000014 Sug 214,RO ‘T st IF NEAR UPPER END 

1601 610734 1 iBR IF 

: 012736 162700 000060 Sua #60,RO : TEST If GETTING NEAR UPPER END 


: ES 

: TEs IF GETTING NEAR LOWER END 
:TEST IF NEAR LOWER E 

gS Ria OWER END 


£4 
8 
i 
7 
s 
2 


=e 
2 ce Sy 
Ere 
; 


1 ; 
1608 O01 162700 00014 SUB #14, 80 ‘TEST IF AT LOWER END 
1609 100405 BMI 43 sBR IE YES 
1610 012766 000412 58 7 :BR IF AT STOP 
lei ols7e4 oesrol Gobo0e Ss; ADC oat 
1613 013000 ae $ INC ; 
1614 013002 OO0404 on 7 ;BR AND LOAD LAMP’S 
1615 013004 012701 oo000e2 S$: MOV #2,R1 :LOAD & 
1616 013010 1 900004 6S: ADD 84°R1 
1617 013014 013700 013046 75: MOV 4o$, RO ;LOAD_ SHIFT COUNT 
1618 013020 006301 10$: ASL RI :SHUFFEL THE DATE 
ies Glass (oe a a8 IF ome 
E51 313088 boes0i ASR At RE ADJUST 
1622 013030 043777 013052 coDtle BIC 42$ a41$ :CLEAR OLD DATA IN LAMPS 
1623 013036 950177 O00006 BIS RI, a41$ :LOAD THE LAM®S 
1624 013042 005001 CLR 
162s 013044 os 70$: RTS Ts EXIT 
1627 013046 O00000 49$: 0 
1628 913050 000000 41$: 0 
1629 013052 990000 425: 0 
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Beea ch eT ee” ee a MAB CE TNENT ROUTINE - SEG c0S2 


ADCS: 170400 


1 
CSi: 17 
est Re Zoi 
1 pesees LOCHDR: . «15)<12>/LOC-BOX SWITCH AND LAMP LOOP/<15><12> 


2 
2c 


88 
2 
z83 
2OO8's 
2 
2 
& 


INADRH: .ASCIZ <15><12>/USE LOC-BOX <DR11K AT BUS ADDR. / 


a 
w 


ds 


1635 


§ 


25 
SBSRRLP 


1636 INDADR: .ASCIZ 7 > YORN? / 


etatateteratatatoraro4 
Rare 
fue 
2 
ae 
8 
2 
5 


OB PESMERBUBRPS 
af 2 
attest 3 

2 

a 


1637 XLOHDOR: .ASCIZ <15><12>/XLO1 POT ADJUSTMENT LOOP/<15>< 12> 


hts 
ia¥) 
Re 
BS 
ep 
eo 


SONS 
2 
5 
Be 


me 


R 

é 
BERBER 
Baoceesgee 


1638 1898 BUSTRP: .ASCIZ <15><12>/BUS TIME-OUT ON SELECTED DRI1k/ 


PRP Kn? 


041505 
051104 
7125 RUNMSG: .ASCIZ <15><12><12>/RUN SAMPLE/<15>< 12> 
46120 
047116 MSGRUS: .ASCII <15><12>/-NNNN/ “*s 


BB MSPNTL: .BYTE * 
1e42 * EVEN 


SRoSRe 
£08 


eRe 
aS 
to 
* 
Rone 


OOD OOOO GOO OOOO OOD OOO OKOKOOHOV0D 00000000 


bb b— b— b— bb b= b= Pb + = 8 b= 2 br 8-2 8 bb = bb 


Ww 
Wu) 
GJ) 
— 
Oo 


SWNLB: .ASCIZ /SET SWITCH REGISTER BITS EQUAL TC THE NON-LATCHING INPUT BITS/ 


WWW 
Hebe 
Row 
a 
tf 
— 
_ 
i 


% 

2 
Pasannet 

: 


e3 
1646 Se3 020124 053523 SWINTE: .ASCIZ /SET SWITCH REGISTER BITS EQUAL TO THE INTERRUPTING INPUT BITS“ 
11 044103 051040 
043505 051511 O4eSe4 
neue O44502 051524 
O42440 O0525e1 046101 


ONVDOOVOVOOVVOOVOOOHONOO 
Oe ee eh er 


ee ee ee POO 
SVERSRSN Sad 


OR11 
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CZORGO.F XLO1 


ADJUSTMENT ROUTINE SEQ 00s4 


1647 042523 020124 053523 SWPOSB: .ASCIZ /SET SWITCH REGISTER BITS 15-12 EQUAL TO POSITIVE INPUT BITS’ 


1648 042523 020124 vUS3S23 SWTRAB: .ASCIZ /SET SWITCH REGISTER BITS 15-12 EQUAL TO TRANSITION INPUT SITS/ 


phe sctaintacnint 
F 
3 
2 


> +0 +b + = b= & + b= O-- o-—- O— O = B-+ & + 0 B= B— Bh — = Ob — 0-- + + A = e- 


1649 yt 053523 SWOPOB: .ASCIZ /SET SWITCH REGISTER WITH THE DESIRED PROGRAM CPTIONS/ 


000 000 
1650 ae 203 ate ice DEPCNT: .ASCIZ <15><12>/DEPRESS CONT./<15><le> 
4 By han i 01 


1651 4027 le3 O40S24 OS2S2e4 EMI: -ASCIZ /STATUS REGISTER IN ERROR’ 


1652 111 052520 O20124 EMe: -ASCIZ /INPUT REGISTER IN ERROR/ 


e O00le 
JES3 Bese? oi pares EM3: -ASCIZ /OUTFUT REGISTER IN ERROR- 


DR11-K LOGIC TEST 
ra -Pll 


DZORGOD .P 


1654 


1655 


1656 


1657 


1658 


1659 


1660 
1661 


1662 


1663 


14141 


014447 
0144s4 


014660 


2 
. 
ae: 


ERESBSES_ ORS 
SrOnrI-KRLVorL 


= 
N 


ages 
St 
REARS 


RRS ERE 
DRee 


bs be 


ik. 


aeose 
RARE 


8 


he bh ee 
Roo ore 


saa 7zaRRE 
Soe Aces 


non 


tT 
LY) 


2929 
th 


é 


O4eS20 


ofeae 
BO 2n— 


052123 


EM4: 


EMS: 


EME: 


EM?: 


EM10: 


EM11: 


DH1: 


DHe: 


CH3: 


MAINDEC-11-DZDRGD  MACY11 27(663) 
XLO1 ADJUSTMENT ROUTINE 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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SEQ O0SS 


/INPUT FRILED TO INTERRUPT/ 


/OUTPUT FAILED TO INTERRUPT/ 


“UNEXPECTED INTERRUPT/ 


7OPERATOR INTERVENTION ERROR/ 


INTERRUPT INPUT BIT FAILED TO SET INPUT READY FLAG/ 


/NON-INTERRUPT INPUT BIT SET INPUT READY FLAG/ 


ZERRPC DRADD TSTNUM STATUS EXPECTED, 


ZERRPC DRADD TSTNUM INPUT EXPECTED/ 


ZERRPC DRADD TSTNUM OUTPUT EXPECTED/ 


DR11-K LOGIC TEST MAINDEC-11-DZDRGD  MACY11 27(663) 19-DEC-76 08:22 PAGE 35-3 
OZDRGD.PI1 XLO1 ADJUSTMENT ROUTINE SEQ O0se 
14606 052516 1 17 
gree GIG ES Bsus 
14622 054105 042520 
014630 O42105 — O00 
i$64 014633 105 051122 O41520 DHY:  .ASCIZ /ERRPC DRADD TSTNUM/ 
014640 o42040 2 
O14646 O42104 OS2011 OS2123 
O14654 052516 00011 
1665 014660 051105 050122 O20103 DHIO: .ASCIZ /ERRPC DRADD TSTNUM STATUS EXPECT INPUT SIT/ 
014666 02 051104 O42101 
014674 OO4SO4 051524 047124 
Oi70e ONe5es O41) 040564 
14710 020123 o4e440 
014716 050130 041505 020124 
014724 44440 050116 052125 
014732 041040 052111 
1b 14740 ,EVEN 
1667 014740 001116 001322 OT1:  SERRPC,DRADD, TSTNUM, SBDDAT, SGDDAT, 0 
—. O14746 001126 O01le4 000000 
1868 19754 G0116 001322 015020 DT¥:  SERRPC,DRADD, TSTNUM,0 
1669 014764 001116 001322 015020 DT1O:  SERRPC,DRADD, TSTNUM, SBDDAT, $GDDAT, BRLEV3,0 
O:4772 001126 OO1le4 001366 
C1s000 000000 
1670 015002 000000 000000 0900000 DFO:  0,0,0,0,0,0.0 
015010 00 o00000 
015016 00000 
1671 915020 og0000 TSTNUM: 0 


ts 1-K 
ZORGD.P 11 


LOLOL LON ON ON ENE ONE EM 


LL LOLOL LN LN ONO 


Nr er er ee ee et ee et et et et et et et te et et et at et a et et et et tt a a at a a ee ee er 


> = bh = 0 + 0 8 0 be 0 0 bs so 
ons 


ee ee ee ee ee ee ee ee ee ee 


LOGIC TEST 


015022 


fatal 


SEO RSF SRSr Mover 


COUN UU UT Cn UT Un CT CT Un CT CUT Un Ut 
se 0 0 


at) 
2BInsn 


YONOVOV OOO OOO VOOOOOV0 000000 


Os bh bb 8 8 


un 
for 
—e 
+r 


104407 
032777 
O01ii1 


002021 
012737 


040080 


000400 
164032 
001103 
001115 
001009 
001110 


001193 
001166 


004000 
001100 


001104 
001166 


000001 
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164106 


ococo4 


164040 
001102 


001103 


164002 


001i0& 


163750 


001104 
001104 
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-SBTTL SCOPE HANDLER ROUTINE 


; ELE EEEEREREREEEEAERESEAE SEER AEE E SEAL LE EA LEELA EERE EERE 
bras pe a} CONTROLS THE L 


ne ae hort He eOR PROVE 


SUBTESTS. IT WILL INCREMENT 


ING OF 
HE TEST NUMBER(STSTNI) INTO THE DISPLAY REG. (DISPLAY<7:C>) 
AG (SERFLG) INTO DISPLAY< 15:08 
DED BY THIS ROUTINE ARE: 


LOOP ON TEST 
teeui iat HRATBST ITERATIONS 
:#5W09 LOOP 
: #SWO8 LOOP ON TEST IN SWR<7:0> 
7 CALL 
:# SCOPE ; ;SCOPE=IOT 
SSCOPE: 
CK TEST FOR CHANGE IN SOFT-SWR 
18: BIT #21714, ISWR :LOOP_ON PRESENT TEST? 
BNE SOVER ‘YES IF 2 
-#eeeaSTART OF CODE FOR THE XOR tecTeahuaty 
$xTSTR: BR x3 THE “XOR” TESTER CHANGE 
$3 uy ieee ON TO A “NOP™ (NOP=240) 
MOV asERRVEC -(SP) $358 T NTS THE ERROR VECTOR 
HOV u5S, 9 #ERRVEC 
nby As canes pie: Ee VECTOR 
S$: CMP ssviab (SP)+ tear Pa bet BF TER a TIME OUT 
MOV (SP) +" J#ERRVEC ; 3RE RESTORE 
a. 2 “L ee Cret 
&$:;#88RREND OF CODE OC FOR TH THE xoR’ tEST ay 
BIT ;;LOOP_ON SPEC. TEST? 
BEQ :BR IF NO 
CMP8 = SWR, STSTNM !:0N THE RIGHT TEST? SWR<7:0> 
BEG SOVER ::BR IF YE 
2s: TSTB  SERFLG ::HAS AN ERROR OCCURRED? 
BEG 3$ ::BR IF NO 
cHFe SERMAX, SERFLG +B, ERRORS FOR THIS TEST OCCURRED? 
> grr #81703, SHR : LOOP ON ERROR? 
73: MOY SLPERR, SLPADR tISeT LOOP ADDRESS TO LAST SCOPE 
4g: CLRB SER ;;ZERO THE ERROR FLAG 
¢LR IMES ret LEAR THE NUMBER OF ITERATIONS TO MQKE 
BR 1$ APE TO THE NEXT TEST 
3S: BIT #B1T11,9SWR : INHIBIT ITERATIONS? 
BNE 1 SBR YES 
TST $Pass HiT FIRST PASS oF PROGRAM 
BEQ NHIBIT TERATI 
INC SICNT + INCREMENT ERAT aN 
CMP STIMES, SICNT K THE NUMBER OF 5 PUN TIONS MADE 
BGE SOVER ee tf MORE ITERATION REQU 
18: MOV #1, $ICNT ::REINITIALIZE THE ITERATION COUNTER 


SEG 0057 


oo. eee 


on 
eee ew ee es ee ~x 
. 


eiltornieramae > -0--b - p= & 


- 


a a EE a a a a ll ee a el et te ee ee ee «he ce a 


ee es ee ee be ee ee ee =e ae ee be PU 
ee ee et ee et et et et ee et et eet eet ee eet eet eet eet ee eet ee ee ee ee ee ew ee ee ee ee ee ae eet et as See Be ee ee 


LOGIC TEST MAINDEC-11-DZ0RGD 
Pil SCOPE HANDLER ROUTINE 


bies6 ikeew? bride “he 


B18 78 


015436 


3 gies 


A159 


013716 


baeres 


104407 
113737 
1052 


013716 
022737 
001001 
000009 


900002 


001000 


001110 
001170 


001170 
011174 


915020 


163622 


163534 


o00d4e 
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sono: Re ERRUSTMS SIME sh duegtios Too 


NOV (3), PERR L SRVE Eanok L 
CL 


» ie Paget tae TE | 
SOVER: MOV HEHE corey i AY Tes? NUMBER 
MOV SLPADR, (SP) 33 FUDGE ARE TURN ADDRESS 
Bh sires PS 
SMXCNT: 2000. ;;MAX. NUMBER OF ITERATIONS 
-SBTTL ERROR HANDLER ROUTINE 


PAIS ROUTING Wit INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
He Aca oh het Nore INCREMENT THE ERROR FLAG Al HE ERRO COUNT, 
AND THE ADDRESS oF THE ERROR SCALE 


NERR 
ieTHe  SuITOH OPT TONS OPROV DED BY THIS ROUTINE ARE: 


te 
:*#SW13=1 INHIBIT ERROR TYPEOUTS 
; #SW09=1 LOOP ON ERROR 
tt ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR :; TEST FOR CHANGE IN SOFT-SWR 
MOVB STSTNM, TSTNUM 
73: INCB ERFLG ;;SET THE ERROR FLAG 
BEG 7$ :DON’T LET THE FLAG GO TO ZERO 
MOV STSTNN, QDISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
INC SER ?INC THE ERROR COUNT 
Nov (SP) "Seppec ::GET ADDRESS OF ERROR INSTRUCTION 
MOVB 5g se, SERRPC ST TENE 53$7R IP AND SAVE THE ERROR ITEM CODE 
BIT #81713, aSWR :SKIP TYPEOUT IF SET 
BNE 20$ SKIP TYPEOUTS 
ISR PC. SERRTYP ::G0 TO USER UERROR ROUTINE 
TYPE  ,SCRLF P 
208: 
2$: TST aSWR ;;HALT ON ERROR 
BPL 3$ : SKIP IF CONTINUE 
ALT : sHALT 
cKSHR ss TEST onae CHANGE IN SOFT-SWR 
3S: BIT #81703, SUR ito PONE ROR SWITCH SET? 
MOV SLPERR, (SP) ; FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE 3 ;CHECK FOR AN ESCAPE ADDRESS 
BEQ o$ :B NONE 
- MOV SESCAPE, (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 
CMP #SENDAD, a842 s38CT-1 AUTO-ACCEPT? 
BNE 6$ ; BRAN CH IF NO 
- HALT >: YES 


RTI ; ; RETURN 


oe. 


OM 


-~ 
> ++ 0 oe TUT PU bb 0 8 8 8 8 8 0 0 FUT UU 0 8 0 + ~“ 
Sas Mah ~~ (OD 


_eNe 


on tae ee 


et et et et et et et et et et et tt tt a tt et et a at ee a ee ees es es 


LN LLL ODN LOL ON LOL LO LOR LOR LR LR LR LPR LR LN LO CR PRL NLL LBP OLN ON PON PO 
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Pll ERROR HANDLER ROUTINE SEG o0S9 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


5 SESE AE SE HEHE AE SEE EE EE SE EEE EEE EEE SE SESE AEE GEE ek EE a EEE 
THIS ROUTINE USES THE “ITEM CONTROL ve (SITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAI FROM THE “ERROR TABLE” (S$ERRTB), 
:#AND REPORTS THE APPROPRIATE INFORMATION N CONCERNING THE ERRORS. 


g1s440 SERRTYP: 
1544 so44o1 901172 TYPE js COARRIAGE RETURN” & “LINE FEED” 
015444 910046 MOV Ao. REP) 
015446 905000 CLR RO’ + Pr CKUP THE ITEM INDEX 
0154SO 163700 001114 BIS8 aeSITEMB,RO 
015454 001004 BNE 1$ si1F ITEM NUMBER IS ZERO, JUST 
THE PC OF THE ERROR 
OLSHSE O13746 OD1116 MOV SERRPC, -\ SP) ii gave SERRPC FOR TYPEOUT 
?ERROR ADDRESS 
o1s462 104402 TYPOC 1160 TYPE--OCTAL ASCII(ALL DIGITS) 
pleuce Soe s5B 18 BF Bs ‘ADJUST THE INQEX SO THAT IT WILL 
setae BOE 300 ASL RO ii WORK F 2 THE ERROR TABLE 
015472 006300 ASL RC 
0:5474 006300 ASL RC 
015476 062700 001176 ADS #SERRTB, RO s FOR TABLE POINTER 
015502 012037 0O15512 MOV (RO)+, 2$ :: PICK sti ” POINTER 
015506 001404 BEQ 3$ tt SKIP T QUT Tf a ceONTE 
BieelS Ang 2 TIGR 0 S PD RTE HERE 
pte 14 open 001173 TYPE =. SCRL : Tear ae: inte Te Feed 
016520 012037 015630 38: MOV tao, ws ::PICKUP “DATA HEADER” COIN TER 
015524 901404 BEG S$ : 5 SKIP TYPEOUT IF ge 
015526 104401 TYPE YPE THE “DATA HEADER 
01553¢ o00000 4g: .WORD 0 tata HEADER” POINTER GOES HERE 
015532 104401 001173 TYPE SCRLF "CARRIAGE RETURN" & “LINE FEED" 
015536 011000 S$: MOV RO), RO : ] PICKUP “DATA TABLE" POINTER 
015540 0901004 BNE 7$ TYPE THE DATA 
015542 012600 &$: MOV (SP)+,R9 : RESTORE RO 
pieey4 10440} 001173 TYPE SCRLF !:"CARSIAGE RETURN” 8 “LINE FEED” 
15550 00020 RTS PC : : RE TURN 
015552 73: 
O1S55S2 013046 MOV 3(RO)+,-(SP) : SAVE 9(RO)+ FOR TYPEOUT 
015554 i044ce TYPOC 1:60 TYPE--OCTAL ASCIIC(ALL DIGITS) 
O1s5Se 005710 TST (RO) i318 THERE ANOTHER NUMBER? 
015560 9001770 BEG +} :BR_IF 
015562 i04401 215570 TYPE 8S Type TWOC2) SPACES 
O1SS6— 000771 BR *§ p 


C15570 Oe0040 009 S$: -ASCIZ / /. ::TWO(2) SPACES 


* 


oOo “The + 


“een : . 
+ +000 8 = = 0 0 OB 0 0 = 0 8 bb be bb 8 bs 0 0 oe 0 bo 2 bs = 02 bBo Bo ee -Tue-(o 


© 
t 
8S & 


as Ns eo 


On ed 
twee 


tn 1 nl ae oe had 
oe ee et ee 


LER NEN 


et eee a es es es 


LN SOOO OR ORR IRON OO LN RNR ER LINERS LR LR LRN EN RL OO LONER LO LENO 
ee ee eee ee ee ee ee ee ee ee a ee. ee oe ae) 
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042703 


000001 
OO0006 
occgos 


016021 


00001¢e 


016020 
i77776 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
5 REREREEEAAAAAL AREER RRREAE RARE AALE EE EE TEER REE EEELS ERE ESSE EE EE 


THIS ROUTINE IS USED 
NUMBER AND TYPE IT. 
s #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:#OCTAL (ASCII) 
#C 

:# MOV 

3@ TYPOS 
:# BYTE 
7% BYTE 
3% 

7% 

3% 


NUM, -(SP) 


TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


;;NUMBER TO BE TYPED 
::CALL_FOR TYPEOQUT 
iNel om . FOR NUMBER OF DIGITS TO TYPE 


timed 
iid 1=TYPE LEADING ZEROS 
; ;C=SUPPRESS LEADING ZEROS 


;#$TYPON----ENTER HERE TO TYPE OUT WITH ne SAME PARAMETERS AS THE LAST 


* 


STYPOS: 


$TYPOC: 
STYPON: 


MOV 


TYPON 
; #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV 
TYPOC 


; #STYPOS OR STYPOC 
; #CALL: 


NUM, - (SP) 


NUM, -< SP) 


SP) ,-(SP) 


SP) 
(SP got 


g 
SOMODE 
#177770,R2 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


NUMBER TO BE TYPED 
im FOR TYPEOUT 


te eaves 


ADJUST RETURN ADDRES 


;SET THE ZERO FILL SWITCH 
s1SE7 FOR SIX(6) DIGITS 
73 QET THE ITERATION COUNT 
;SAVE R3 


SAVE RY 
+i Beye TRE NUMBER OF DIGITS TO TYPE 


ae TT IT FOR MAX. ALLOWED 
SA ve IT FOR USE 
GET THE ZERO VPTLL SWITCH 
:;PICKUP THE INPUT NUMBER 

: CLEAR THE OUTPUT WORD 

; ;ROTATE MSB INTO “C™ 


;GO DO MSB 
: FORM THIS DIGIT 


;:GET LSB OF THI ,oIGIT 


33 TYPE HIS DIGIT? 
::GET RID OF JUNK 


SEG SCEC 


SEN ORR ER NEN 


LO LLL LLL OO LO LOL EN FLO FEN OO . 
> +> +b pb 9 bs b> Bs bo 8 


ee at ee ee a ee ee ee ee ee ee ee ee ee es ee ee 
2 
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P BINARY TO 


11 OCTAL (ASCII) AND TYPE SEG C06! 
015730 001002 ug :; TEST FOR O 
o15732 ante Ist RY i+ SUPPRE 55 THIS 0°? 
ate 48: INC BS ; ;D0N"T CEB oRESS ANYMORE 0°S 
Bie Geers Rog, ERE DEE PUP oT Rev 
if 750 on6a03 ast 4 ors R3, 8S fe Pas bPine 
015754 104401 016014 TYPE ag :GO TYPE THIS DIGIT 
Qt 760 37 O16016 7: DECB © $OCNT : COUNT By 

15764 7 BGT es 3 IF TO DO 
015766 02 SLT 6$ :BR IF 

615770 905204 INC RY  TTINSURE LAST D art ISN" T R BLANK 
015772 900744 BR 25 ::G0 DO THE LAST DiG 

015774 12605 é$: MOV (SP)+,RS ; RESTORE RS 

Ries BLS ge ee 

pieeRe BiEEPE ocooo2 oooco4 MOV $36p3" "UI SP) i RESTOR BFack FOR RETURNING 
16010 Oieb1é Hoy (SP)+. (SP) 

bieois abe 9s -BYTE 0 : BERN FOR ASCII DIGIT 
16015 co "BYTE : TERMINATOR FOR Type ROUTINE 
16916 09 $OCN” [BYTE O s1QCTRL IGIT COUN TER 

18017 90 SOF ; :BYTE O O FILL SWITc 

§isteo eoo2ad $OMOUE: “WORD 0 ::NUMBER OF ararts TO TYPE 


en 


. 
LR OER LOR LR LO LOR LOL LN LO LO LON ON IRF LR ENR ER ERE OO 


CO tC CI) CLI 8 0 PU 0 OC GL GI CI I La 8 + PU 
inne ~~ ee ee ee i et ee ee et ee ct et ee et ee te et et eet ee eet et eet ee et eet ee ee ee ee ee ee ee ee 8 ee 


CT RR RNR ER ER RR ER RN 


-- 


186 


chp is oe TEST MAINDEC-11-OZDRGD 


BINARY TO OCTAL (ASCII) 


01s022 012737 016166 900024 


O16 30 016737 000340 900026 
O16040 010146 

O1eo4e O10246 

016044 O1 

GES Blas 

O16052 017746 163062 
fe 519$3> Bieo78 ooo024 
1 


NS 
£ 
i=) 
~— 
t~ 
a | 
Ww 
N 
oO 
— 
o 
_ 
o 
o 


oo00e4 


016922 000024 
012737 000340 O000cE 


PAIFTRSRL ASR ERO eS 
a8 


005015 O4eS2e O0S2l23 
orks 043516 


KOMM LOM KCOCMN CCK KNCOO OOM OrMmoro 


f 
& 


0511 
mens O4eSee 005015 
Olbe4e 


NONOKOVOVVNOOD OOD OOO OOO VOOOOOOV0O000O 
ee eh er ee 


Forororure 
wre 
oOnLtero 

ao 

<= 

Ww 

Len} 

+ 

Oo 

oO 

+ 

= 

ul 

Oo 

— 
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AND TYPE 


-SBTTL POWER DOWN AND UP ROUTINES 


Rot ton kee ee eens 
TINE 


‘BOWER DOWN R 
bpuReN: nov oT STLLUP DSPWRVEC ;;SET FOR FAST UP 


V #340 0, EPURVECTE ; ;PRIO PRIO:7 
MOV -{Sp H RO ON STACK 
MOV Ai = 8p) : PUSH Rl ON STACK 
MOV Re, -(SP) ;;PUSH Re ON 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV RY; -(S5P) ::PUSH R4 ON STACK 
MOV RS'-(SP) : ;PUSH R= ON STACK 
NOV gSuR R,- (SP) PUSH SSH ON STACK 
mov wit RS ouavec! (sett a UP VECTOR 
BR ;;HANG UP 


+ LELRAARLHRRAA SELLE RASA ERA EARLE AREAL ALARA SARL LERELE REALE ARAELS 


‘BOWER UP ROUTINE 
$PWRUP: NOV SSILLUP, JHPWRVEC ;;SET FOR FAST DOWN 


MO SA 6, gs 
CLR Seavne siGET SP LOOP FOR THE TTY 
1$: ve ree stat Ai THE INC 
MOV WR 33 erRCK nto oSWR 
wad Bek Re BS ar | Kg 
MOV (SP), se +t Bop st Tack iNtg = 
MOV + OOP TACK INTO R 
MOV STACK INTO R 


M Y ae ayeuavec' i’ eS Kee 2 i DOWN VECTOR 


MOV #340, J8PWRVEC+2 ; 3? fet tenet Wein 
SPWRMG: Mb D  PWRMSS Ba FAIL ESSAGE BYR Fee 


MOV (PC)+, (SP) ORT AT IOT 


SPWRAD: giORO 1OTEST + RESTART ADDRESS 
SILLUP: HALT 13TH POWER UP SEQUENCE WAS STARTED 
ssaves BR 2 :; BEFORE THE POWER DOWN WAS COMPLETE 


: U SP_HERE 
PWRMSG: .ASCIZ (15> (12> “RESTARTING AFTER A POWER FRILURE/<15>< 12> 


EVEN 


SEG 


2062 


oo 


se 0 he ee ee a es es he oe ee + UP - COD 
~~ et ee ee ee ee ee ee ee eet ee ee ee et et et et et eet ee es eet et ee ee ee ee ee eee ee ee ee ae ee es es ee ee ee ee ee ae es — ~-s~.00cD 


“er 


LDN LBL LB LO LN OLR LON LON LON LOLOL OB LR LR LDN LR LR OO LR PLR LOE ORL LE LRLNPRLRLOR PLONOP LP OL O LP ONO OOMO P he 


a TEST MAINDEC-11-DZDRGD MACY11 27(663) 19-DEC-76 08:22 PAGE 40 
POWER DOWN AND UP ROUTINES SES 0063 


-SBTTL TYPE ROUTINE 
een te Tea Gani? Grantee IEGEREE TUT TOTTI aE 


ed ROUTINE WILL TNGERT A-RUNGER OF NULL CHARACTERS AFTER ALINE EED. 


NS THE CHARACTE FILLER CHARACTER. 
t ENOTE?, sritts CONTAINS THE NUMBER BF Pitter € EHARACTERS REQUIRED. 
; #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*#CALL: | 
te) USING A TRAP INSTRUCTION 
; on TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
38 
: YPE 
;* MESADR 
3¢ 
016242 105737 001157 $TYPE: TSTB $TPFLG ;IS THE a A TERMINAL? 
ita rey BPL 1$ oR 
0162 0000 HALT is Ha 1 eRe IF NO TERMINAL 
O162Se 000407 BR 3$ s3l 
0i62S4 O10046 1$: MOV RO,-(SP) Sites RO 
016256 C17600 o00002 MOV detSP),RO ;GET ADDRESS OF gf STRING me 
Ol6e62 112046 es: MOVB (RO)+,-<SP) :: PUSH CHARACTER TO BE Me GNTO STACK 
016264 001005 4$ ;;BR IF IT ISN’T THE TERMINATOR 
016266 005726 TST (SP)+ sie TERMINATOR POP IT OFF THE STACK 
016270 012600 60S: MOV (SP)+,RO ;RE E RO 
Ol6e7e 062716 o0000e2 3$: ADD #2, (SP) : SADJUST RETURN PC 
016276 o0C90e2 ° RTI 55 
016300 122716 000011 4$: CMPB #HT, (SP) ;;BRANCH IF <HT> 
016304 001430 BEQ 
016306 122716 O00200 CMPB CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
0163 001006 BNE S$ 
01 005726 TST (SP)+ tit: <CR><LF> Eguty 
016316 104401 TYPE ; TYPE A CR AND L 
bieaee Tos09? O164S6 ache $CHARCNT ;;CLEAR CHARACTER COUNT 
016326 bno7ee BR 35 iiGe NEXT CHARACTER 
016330 004737 O16412 S$: JSR PC, STYPEC 360 TYPE THIS CHARACTER 
016334 1237 001156 6$: CMPB SFILLC, (SP)+ tit IT TIME_FOR CTL ER ER CHARS.” 
616340 00135 BNE +) NO GO GET NEX 
016342 013746 001154 MOV $NULL , - (SP) GET & OF A iiw.t CHARS. "NEEDED 
;;AND THE N ULL CHAR. 
016346 105366 000001 7$: DECB 1(SP) 3 sos A NULL NEED TO BE TYP 
016352 002770 BLT $ ;BR IF we POP THE NULL PF OF STACK 
016354 004737 Ol64le JSR PC Ale ::G0 TYPE A 
016360 105337 O164S6 DECB $CHARCN $305 Nore COUNT AS A COUNT 
016364 000770 BR LOOP 


;HORIZONTAL TAB PROCESSOR 


staias Ahe7 48 Oo0o4C 8$: MOVB #’ , (SP) 3 sREPLAGE Me. WITH SPACE 
O16 04737 Olb4le 9S: JSR Pc, $TYPEC 7; TYPE A SPACE 


me ee + ee re SS — 


—_ 
- 


es 
wn 


LON LN PRL LO RENN EN FR EN FR ERERER FOREN 4 


0-2 b= b= b= b= b= 0-2 b= 0 bh pe a Pe 
ee et et ee et et ee eet eet ee et ee eet ee ee ee 


Ys TEST MAINDEC-11-DZDRGD MACY11 27(663) 19-DEC-76 08:22 PAGE 40-1 


TYPE ROUTINE SEQ COE4 
016376 132737 OO00007 O164S6 BITB  87,$CHARCNT ; BRANCH IF NOT AT 
016404 001372 BNE TAB STOP 
O164Ob 005726 TST (SP)¢ :1POP SPACE OFF STACK 
pret sistas 162532 STYPEC: ae 5 rps RTT GNT UNTIL CHO RINTER IS READY 
ses lie? yg Eee agrr ng, pate FC 
184 148877 BRRROE iat eee ace 2tBB) HOB GeAeacTER BE ARR TAGE TURN? 
016434 001003 BNE 1$ 
6436 105037 O164S6 CLRB § $CHARCNT t YES=-CLERR MO MARACTER COUNT 
16442 O004 BR STYPEX 
C1E444 122766 000012 oo00002 1S: CMPB es, O( SP) 3318 CHARACTER A LINE FEED? 
O164S2 001402 BEQ STYPEX :BRANCH_IF YES 
016454 105227 INCB = (PC) + E SOUNT THE CHARACTER 
O16456 000000 SCHARCNT: .WORD O ::CHARACTER COUNT STORAGE 
016460 000207 STYPEX: RTS PC 


2 


: 


- 


va ent ae tt ae ae tee te ee te tae ee tee ae ee een * lee 1 ae hae eae tee tae ee eae en cae a ae ae ae hae an an ca ae aa a fa an ae aan a ae an aa eae eee 8 hd 


Soi a ORL SAO aa eee7e caree rece a sa cot 


-SBTTL READ AN OCTAL NUMBER FROM THE TT) 


s ee TTA WIE READ AN OCTAL CReCiI) NUMBER FROM THE TTY AND 
{ATH ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
sCHANGE IT TO BINARY 


$1 
1) 
@) 
) 
1) 
1) : 
) ;* CT ii AD 
t} :# fe URN HERE at ORNS Bris bee BRE ON TOP OF THE STACK 
1) : ;:HIGH ORDER BITS ARE IN SHIOCT 
4) 
i} o1e462 011646 SRDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
1) O16464 O16666 000004 oxD0002 4(SP} 2(SP) : INPUT NUMBER 
3) Oleu7e 010046 MOV RO, - ($8) ; sBUSH RO a us 
3} nett Bt MOV fib? = (8p) Push Re 1k 
1) Olean Areeee 1s: fee” espe. ro REO ADRESS SECAST CHARACTER 
1} BOEBDY CR AP RET AOBRES WORD 
1) 016506 CLR R2 
1) 016519 11204 2s: NOvE (RO)+,-(SP) 5 IC THI CHARACTER 
t} BLeets BoRsOT Bee tie 
1) 016516 006102 ROL Re 
1) 006301 ASL Ri 7384 
1) O16522 006102 ROL Re 
1) 016504 006301 ASL R1 #8 
1) 016526 0o06102 ROL Re 
1) 016530 O42716 177770 BIC #1C7, (SP) ;;STRIP THE ASCII JUNK 
1) D1bb34 01 agp (oP 4, JR1 ;;ADD IN THIS DIGIT 
1) O16 0764 B 2 LOOP 
1) 016540 005726 3$: TST (SP)+ :: CLEAN TERMINATOR FROM STACK 
t} Bieeve BiG Beste Moy Ret gaTOCT poe ee 
c 
4} pte 28 ead MOV Eppa Re $3POP STACK INTO R2 
3) O165S4 012601 MOV (SP)+;R1 ::POP STACK INTO R1 
3) O1b556 0126 MOV (SP)+'RO ;;POP STACK INTO RO 
1) O15 000 RTI TU 
1) O16562 o00000 SHIOCT: .WORD 0 ::HIGH ORDER BITS GO HERE 
92 -SBTTL. TTY INPUT ROUTINE 
a 5p RERRRRARA RARER ESA ELAR REAR LEER RA ELAL ALA RARE LA LAER ELAR ELE EELE 
) . NABL 
1) 
2) 3 [eeneeseee tee ee eee 
1) t $SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
1) **#ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 
1) ;HSERVICE THE Te ST FOR CHANGE IN SOFTWARE aut TRH REGISTER TRAP CALL 
1) *WHEN OPERATING IN TTY FLAG MODE. 
1) O16564 022737 000176 001140 étKSuR: #SWREG, SWR i315 THE SOFT-SWR SELECTED? 
1) 016572 oOO1074 SNE iss ; }BRANCH TF _NO 
1) O16574 105777 162344 TSTBQSTKS ::CHAR THERE? 
1) O16600 100071 BPL 15$ :IF NO, DON’T WAIT AROUND 
1) O16602 117746 162340 MOVB seTKB -(SP) side THE CHA 
1) O1GE06 O42716 177600 BIC #10177, (SP) ::STRIP-OFF THE ASCII 


ee —<e 


3 


oO 
. 


LDS LL LN LN LOLOL OLN LOO 3 


ane Ne 
+= > = b+ b= b— 6 b+ = 0 0 0 0 0 8 8 Bb 2 0 0 2 b+ bb 2 0 2 0 = bh 8 pe = +-- FUT > — & = 0 pe 


et tt et et et et et tt et et et et et et et et et et et et et et et et a et a a et a a a ee ee ee ae ee ee ee ee ee 


LL LOB LIL EERE RE LE FR FRR OREN FR FR ROO OOO 


7 = » tor io 11-DZDRGD MACY11 27(663) 19-DEC-76 08:22 PAGE 41-1 


T ROUTINE SEQ COE 
Ol6612 022726 000007 CMP #7, (SP)+ sits T A CONTROL G? 
pet Ooi 8s 001134 00001 BAPE 158 #1 tho ti AUTO-MODE? 
Bt Bese ABTSEE gFG $2 r Hae it aN 
16630 104401 017436 T , SCNTLG ;;ECHO THE CONTROL-G (1G) 
16634 104401 017443 SGTSWR: TYPE aoc ii TYPE CURRENT CONTENTS 
016640 913746 000176 MOV SWREG, -(SP) Hy Fa FOR TYPEOUT 
16644 | Typoc one ros neh BSCTICALL DIGITS) 
16646 10440] O17454 T , SMNEW 
Olbbse 00S046 19$: CLR “(SP) beay COUNTER 
bibese op 038 162262 7$: $F, 3$Ke et aa 
16662 100375 BPL 7§ ::IF NOT TRY AGAIN 
18564 11 1622 MOVB  a$TKB,-(SP) iif CK 
ost Saar meet acai BIC cee. P) ce YS SHBF -BIT ASCII 
016674 021627 000025 QS: CMP (SP), #25 iis ITA CONTROL -U? 
016700 o0100sS BNE CH IF 
016702 104401 017431 YPE SCNTLU ‘YES, ECHO RO NTROL-U (tu) 
Ni6706 O62706 o00006 20$: ADD ke. SP :} TGNORE PREVIOUS INPUT 
016712 000757 BR sg ::LET’S TRY IT AGAIN 
016714 021627 oD0015 10$: CMP (SP), #15 i]s IT A <CR>? 
016720 001022 BNE 16$ :BRANCH IF NO 
016722 005766 oo0004 TST 4(SP) YES, IS IT THE FIRST CHAR? 
016726 O014 BEQ 11$ tt BRANCH IF YES 
016730 016677 oo000e 16e20e MOV 2(SP), aSWR i 
Biers Tewgt gue Maumee SI ie 
00 $s i 
pies 123727 001135 oo0001 CMPS =-« SINTAG, #1 Ree TTY kbp INTERRUPTS? 
Bievee Biee7? 000100 162160 ACY sw100, 3STKS TRA OCPLE TTY KBD INTERRUPTS 
pies 4 ae 1S$: RTI :iRE TURN 
016766 004737 o16412 163: JSR PC, STYPEC +:ECHO CHAR 
016772 O216e7 OO0060 CMP (SP), #60 !:CHAR < Q? 
016776 O02420 BLT 18% ::BRANCH IF YES 
017000 O2i627 000067 CMP (SP), #67 : CHA ? 
017004 003015 BGT 18% ::BRANCH IF YES 
917008 oH 726 QO0060 BIC #60, (SP)+ is STRIP-OFF ASCII 
1701 766 o00002 TST 2(SP) 3;1S THIS THE FIRST CHAR 
017016 001403 BEQ 173 :BRANCH IF YES 
017020 0063 ASL (SP) 33N0, SHIFT PRESENT 
017022 ASL (SP) :: CHAR OVER TO MAKE 
017024 006316 ASL (SP) :: ROOM FOR NEW ONE. 
017026 O0S266 oo0002 17$: INC 2(SP : KEEP COUNT OF CHAR 
017032 OS6616 177776 BIS -2(SP), (SP) if Nel CHAR 
017036 000707 BR 7§ THE NEXT ONE 
017040 104401 001172 183: TYPE SQUES ti TYPE ?<CR><LF> 


017044 000720 BR 20$ :  STMULATE CONTROL -U 


6x 


ee ee eee ee ee ee ee ee ee ee ae ee ae ee ee ee ee ae a ee ae ae a ae ca ca ae ee ce a ce cae a ae a a Ges 
Se a ee ee 


oe Be Bh Be Be Be be bo ed 2 8 Bs a be bo Be Bo Bo be bs 0 be LD 


eee ee ee 


LOGIC TE 


Pll 


Sekaee 


8 i ot 
NN NNNN NNN NNN SS 
he oe eh ee 

PT ERER Powe sore 


OO OOOVOOV OOO OOVV000000 


o 
£ 


017240 


Fy ieur 


BIDS 


000177 


000134 


C-11-DZDRGD 
ROUTINE 


000: 40 
000175 
000904 


017420 
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SEG 0067 


-DSABL LSB 


55 SESE EERE EERE Se EE RR RE EEE 
:&THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
:% 


: UMA bu HRPMETER, FON THE TT 


;# HR 
;# peste HERE 
;;WITH PARITY BIT STRIPPED OFF 


SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC 
MOV 4(SP},2(SP) ::SAVE THE PS 
1g TSTB a$TkKS ;;WAIT FOR 
L 1$ ay) CHARACTER 
dSTKB, 4(SP) !:READ THE TTY 
BIC #tC<1?7>.4(SP) ::GET RID OF JUNK IF ANY 
4(SP) , #23 ::1S IT A CONTROL-S? 
Ria 3 TAIT E 
2s: TST TKS j FATT FOR A HARACTER 
MOVE Ser -(SP) HiGeT CHARACTER 
BIC #tC17?, (SP) t:MAKE IT 7-BIT ASCII 
CMP (SP)+, #21 5318 IT A CONTROL-Q 
BNE 2g IF NOT DISCARD I 
BR 1$ ;;YES, RESUME 
38: CMP =s« (SP), #140 ::1$ fT UPPER CASE? 
ae 4$ 5s GRAN HIF * 
MP 4(SP), #175 1S IT A SPECIAL CHAR? 
BGT ” ;;BRANCH IF YES 
BIC #40,4(SP) ;sMAKE TT UPPER CASE 
I :G0 BACK TO USER 


4$: 
38 PEPPEPEeTTTTTTTTTOTTTOTITTTTTITTTITETTTTTETTTT TTT Tit TTT ttt tte 
s ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


: ROLIN ;; INPUT A STRING FROM THE TTY 
ie RETURN HERE ::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
1 :: TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP} ;;SAVE R3 
CLR -( SP) ::CLEAR THE RUBOUT KEY 
18: MOY aSTTYIN,R3 GET ADDRESS 
2s: i. erty N+7,R3 3s BUFFER PULL? 
Fiat +i BR BF af BNE CHARACTER FROM THE TTY 
MOVE = (SP)+, (R3) ::GET CHARACTER 
108: CMPB sg 177, (RR) : T A RUBOUT 
BNE $s F NO 
TST (SP) :!IS THIS THE FIRST RUBOUT? 
BNE 6$ 33 2 
MOVE 8° \,98 :: TYPE A BACK SLASH 
TYPE a3 
MOV b-1, (SP) :;SET THE RUBOUT KEY 
6S: DEC 23 ::BACKUP BY SNE 


o 
g 

Bs 

Bx 


> &— b— p= b— 6 b= + 0 = 


DAR ER RRR RR AREF ERR ROO LON LOR LO LOR LOR LR LN LO LOR LOL LO IRL LOLOL LN LF 
et a a ee ee ee ee eee a ee ae es es 


Lb hb bb bb be bb be be bb be 


tw 


— 


BOS 
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Y INPUT ROUTINE 
1 017422 CMP R3, #STTYIN ;;STACK EMPTY? 
eet rere BLO 4§ ::BR IF YES 
017250 111337 o17420 nove (R32), js SETUP TO TYPEOUT THE DELETED CHAR. 
pt eSeq ApaaGe BR s¢° 388 READ ANOTHER CHAR. 
O17ebe 00S? 16 cs: IST ($P) ; sRUBOUT KEY SET? 
pte eee roe 398 000134 017420 Sa "yy 9 eh a Back SLASH 
17274 109401 017420 TYPE as ou 

i 3 
ots rea oo002s 7$: Kepe NS (R3) iS CianatreR ® CTRL U? 
017306 001003 BNE 
917310 104401 017431 TYPE OF ONTLU : OPE A NCONTROL | 
17314 000726 g8 i$ ily START OVER 
017316 122713 oo0022 8S: CMPB —s- #222, (RB) 3315 CHARACTER A “tR"? 
017322 O01011 BNE 3$ 
017324 105013 CLRB —s- (R33) H CLERR THE CHARACTER 
O13 358 ipyuoy yee TYPE » ON t THE INPU tt "eR 
¢ ’ 
017336 ori? BR et hate ANOT R R GHACTER 
17340 104401 001172 4g: YPE SQUES 
017344 000712 BR i$ CLEAR THE BUFFER AND LOOP 
0i7346 111337 017420 3$: _ MOVB  (R3),95 >:ECHO THE CHARACTER 
017352 104401 017420 TYPE 9g 
017356 122723 o000i5 CMPB = s«aIS, (RBD+ ;;CHECK FOR RETURN 
017362 001305 BNE Px § ;;LOOP IF NOT RETURN 
017364 177777 CLRB = - 1 (R33) 556 AR RETURN (THE 15) 
017370 104401 001174 TYPE SLF TYPE @ LI 
017374 005726 TST (SP)+ CLEAN RUBOUT KEY FROM THE STACK 
017376 012603 MOV (5P)+,R3 ORE R3 
017400 O11646 MOV (SP), *(SP) ; ;ADJUST THE STACK AND PUT AODRESS OF THE 
017402 O16666 o00004 oD0002 MOV 4(SP}_2(SP) : FIRST ASCII CHARACTER ON IT 
017410 012766 017422 900004 MOV eSTTYIN, 4(SP) 
017416 o00002 RTI ; ;RETURN 
017420 000 9g: .BYTE 0 $$ TORR FOR ASCII CHAR. TO TYPE 
017421 000 "BYTE : : TERM 
017422 000007 STTYIN: .BLKB js RESERVE ? yprres FOR TTY INPUT 
017431 136 006525 000012 §$CNTLU: [ASCIZ /tu7<1S><12> Sh ROL ” 
O17 04356 So1s 00 SCNTLG: ASC 746715) <12> : CONTROL “ge 
1744 01 l4le OSlle .ASC 415><1l2>/SWR = 
0174S0 036440 OO0040 
017454 O20040 O42516 O20i27 SMNEW: .ASCIZ / NEW = 
017462 o20075 
017466 EVEN 


DR11-K LOGIC TEST MAINDEC-11-DZDRGD MACY11 27(663) 19-DEC-76 08:22 PAGE 4e 
DZORGO.P11 TTY INPUT ROUTINE SEQ 0069 


RA 


-SBTTL TRAP DECODER 


o> 
ou 


j Saeanneuanuanesnseseqers sueerscescwuseeanereratarss tecteuees 
: $THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
AND USE I TR ARTING ADDRE 


; T_TO INDEX THROUGH THE TRAP STARTI 
;*#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:#GO TO THAT ROUTINE. 


fe 


ee ee ee ee ee ee ee a ee a a ee ee eee 


O17466 010046 STRAP: MOV RO, -(SP) $3 RO 
017470 016600 oocgo0e MOV 2(5P),RO ;;GET TRAP ADDRESS 
017474 005740 TST =-(RO) UP BY 
017476 111000 MOVE  (RO),RG ice RIGHT BYTE OF TRAP 
017500 0063 ASL TION FOR INDEXING 
017502 O16000 017522 MOV $TRPAD(RO),RO HTN xX TO TABL 
017506 900200 RTS RO G0 TO ROUTINE 

:;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
017510 O1164% STRAP2: MOV (SP), -(SP) +5 ;MOVE THE PC DOWN 
017512 O16666 oo0004 o00002 MOV 4(SP),2(SP) ::MOVE THE PSW DOWN 
0:i7520 od000e RTI ::RESTORE THE PSW 


-SE8TTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:#BY THE “TRAP” INSTRUCTION. 


OWI WLIW WI & OG) IW) 0) OI) OD) CI) CUO I a) 0 0 0 0 0 0 0 0 8 0 bp es 


— 
RS RNS RR ER ER ER RN ER EN ON NR LN NLR LO LOR LO LLL LLL POL OOO 


ROUTINE 
017522 017510 $TRPAD: .WORD $TRAP2 

017524 O1624e2 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUT INE . 
01752¢6 9015620 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017530 015574 STYPOS ;;CALL=TYPOS TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017536 015634 STYPON ;;CALL=TYP TRAP (194404 TYPE oc TAL NUMBER (AS PER LAST CALL) 
17534 011230 STYPDS ;;CALL=TYP Teapsect quad) TY CIMAL NUMBER (WITH SIGN) 
017536 O16634 SGTSWR ;;CALL=GTSWR § TRAP+6(104408) GET SOFT-SWR SETTING 

017540 O16S64 SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 

017542 017046 SROCHR :;CALL=RDCHR 9 TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

017544 O171E6 SROLIN ::CALL=RDLIN  TRAP+11(104411) TTY TYPEIN STRING ROUTINE 

017546 Ol646e2 $RDOCT ::CALL=RDOCT | TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 


- 
oOo 
Oo 
Oo 


‘ 
4 


1698 017550 000000 BUFFER: 0 ;10 WORD BUFFER FOR THE COULTER INTERFACE TEST 
000981 . END 


DR11-K LOGIC TEST MAINDEC-11-DZDRGD MACY11 27(663) 
ZOR CROSS REFERENCE TABLE 


OZORGOD.P11 
AOBR 013060 
ake 013054 
BRsPaa O01 
BASEBR 001312 
BASEIV 001310 
BEGIN 001400 
BEGINI ps 

T = 
EiTBo = poouat 
BITO1 = 000002 
BITGe = 000004 
BITO3 = 000010 
BITOY = 000020 
BITOS = 000040 
Bt iis = 000100 
Bi 7Ba = BopapD 
BITCS = 001000 
BIT1 = 00000e 
BIT10 = 002000 
ITll = ao 
TTle = Oi 

IT13 = 
BIT14 = 040000 
BIT1S = 100000 
BITe = 000004 
Le 

TS s 
BITS = O0OO40 
BITE = 100 
BIT7 = 900200 
BITS = OO0400 
BITS = 001000 
SPTVEC= 000014 
BRLEV1 O01 
BRLEVe 001364 

EV3 OO01366 

BUFFER 017550 
BUSTRP 013241 
BYPASS 011010 
BYPAS! 011076 
CKSWR = 104407 
COULTJ 001410 
COULTR O11614 
CPU 1314 
CR = 900015 
CRLF = 000200 
DDISP = 177570 
DEPCNT 9014005 
DFO C1S00e2 
DH1 014447 
H19 D14SE9 


1597 
1587 


16338 

1$92# 

Ipsee 
679 
650 
504s 
513% 
734 


16618 
456 


1595 
649 
1394 
589 


747 


515 
420 
16658 


16318 

1393 

94S 979 
1237 1274 
1675 

846 1313 
B46 1099 
1348 1365 
846 1164 
B46 1087 
1344 

968 973* 
947% 956 
1262 1263 
1400 

426 432 
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1001 


1305 


1320 


1175 
1243 


1339*# 
36s 
1270% 


438 
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1241 


1406 


1218 


446 


1278 


1674 


l2es 


1005 
1282 


452 


1438 


453 


1021 1022 i241% 
1288 1285 12992 


16708 


SEQ 007° 


L245 
1669 
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GO.P11 CROSS REFERENCE TABLE SEG 0071 
4517 412 16628 
145 a8 7 
4 424 4 436 444 16648 
IOBRL 1 4858 679* 1331% 1334 1337 1339 
DISPLA 001142 4028 SiS 1674  1675# 
DISPRE 000174 3948 Sis 
ADD Biase 4698 649# 664 665 667 669 1389% 1393% i667 1668 1669 
IV 1 4698 621% 650# 671 672 67 676 1390% 1394# 
DRTe1 007050 864 11098 
= gg* 40 ai3 
1 14 4 41 41 16678 
T10 14764 451 457 16698 
DT4 014754 425 431 437 44S 16688 
FMTVEC= 000030 3908 S1S# 
ay 014027 40S 16518 
EM10 014307 449 16588 
EM11 014372 455 16598 
4060 411 16528 
EM3 014110 417 16$38 
EMY 014141 423 16548 
EMS 014173 429 16558 
014226 435 1656% 
i4253 44 ath 
RRVEC= 33908 ge S40* S41e = 1674# 
XTCNT 011569 1406 1415% 1420 
EXTTMP O11556 1409 1410 1413% 1414 14198 =61443% = =1447% = 1463% =: 1473% 
EXTTST O114S4 39 1404s 
GNS = ##eERE UJ 394 4 S49 53 ble 615 1696 
GREHIO O0134e 4788 669% 670# 98% 
GROAIT 001336 476% 665* 666% 686* 808 866* 869 877% 881 830% 894 902% 9C& 


921# 923 931# 933 955 965 981% 990 gss*# 1003% 1016 1021# 1032 
1040# iors” 1065* 1077% 1081 1103 1118 1220 1248 1263 1285* 1315 1409 


1410 1414" = 144 agit 
GRDIO §=»©: 001340 8 667% 659% 687% ix 692 goody 701 707% 708 715% 716 724% 
see 736% 737% 738 749% 750% 7 762% 765% 766 773% # 7 
785% 786% 787 797% 799 807% 865% 868% 876% 880* * 8934 a 
g0S* 920% Seex 932% 4x Ob4e 980# 988* ges 1002# 1013 1014 1031% 
1040%  10S6* O6S* 1076% 1078% 1089% 41101% 11178 1219% 1le47* 12e50% 1251% 12528 
lebex 12e84* 1287% 1288% 12e89*% 1314* 1407% 1408* i4ll# 14lee 
GRIVA 001350 481% 671% 683% 11138 1133% 1147 1180* 11708 1184 lel4# 1233% i311# 1325% 
1343% 1356% 1360% 1370% 1381% 1434# 
> GRIVB 001354 he ‘Sore 675% 683% 1115* i135* 1162 1186% 1196% 1216* 1233% 1309% 1325s 
& 
GRIVSA 001352 sees A Bf 683% 1114* 1134* 1161% 1185* 1215* 1233* 1311 1312% 1325 
% 
GRIVSB 001356 Moy, 676% 677% 683% 1116* 1136% 1163% 11878 12178 1233% j.J31C® 1325% 135&% 
% 
GRSTAT 901334 4758 Co4e cote 810% 811 817% 819% 820 827% 828 934# 836% 837 
coe B4E* g 1088s g 119 % 408 L111® ll2e3% 132% 11378 LliSS# Llg¥# 
1165# 1174 1183% 1188* tel3e lel8e lees*# le3ee 1249e 1ed3% 256 1265# iets 
1286 1290% 1292 1308% 1313 13208 13278 j%(l34ee 1348% 1359% 1365* 1433% i438# 


GTSWR = 1O440E 16968 
HT 690011 3908 1689 
H3223 001422 399 s«S 108 


DR11-K Ps ee TEST MAINDEC-11-DZ08GD 
DZORGD.P CROSS REFERENCE TABLE 


INADR 012152 1483 1486 
ENCAGR 1316p igor iesee 
invert i396 ye0e «= S57# 
IOTEST 02752 S47 «560 
Torfsi oosieM fs, gg 
ioives= ns 
R 001376 4928 505s 
LF = 000012 3908 1689 
LOCA Ole 126 148514 
LeBOx 16054 400 14808 
LOC 1 i482 16348 
LOCl 001326 u7ow | 1484 
LOcly 012332 148415448 
LOC? 001330 4738 1497 
Locey 012334 1487 1545e 
OCs. 001332 474 1490 
LOC3y 012336 1490 «15468 
LOUP]  O1e260 14931495 
NINSIN OO1372 4908 558s 
MSGRUS 01232¢ eis 19753 
MSPNT1 01333: 146216418 
NBEXT 901320 4e68 BS 1 
NNBEXT 001316 4gS5# = 539% 
NOTLCH 901344 4799 556s 
ODDIMP 001370 438 6808 
PC =“000007 3908 662% 
1678 1664 
PIRG = 177772 3908 
PIRGVE= 000240 3308 
PRO = 000000 3908 
PRi = OO0040 3908 
PRe = 000100 3908 
PR3 = 000140 3908 
PRY “= 000200 3908 
PRS = Q00240 3908 
PRE = 000300 3908 
PR? = OO0340 3908 
PS = 177776 3908 © 1439 
PSu = (177776 3908 Illex 
13ige —132E« 
PWRMSG 016174 1684 = 16858 
PURVEC= QOO0e4 3908 «515% 
REEG 01440 506 6-509 
REEG1  O02004 S428 
002776 62s ES 28 
OCHR = 104410 1692 1E9E8 
ROLIN = 104411 1508 
RDGCT = 10441é 624 16964 
RESVEC= 000010 3308 
RUNMSG 012302 14361639 
0 ~’=x000000 2508 SOs 


1489 


S64# 
567 


1138% 
1344 


1425% 
Sle 


1398 
16964 


508s 


MACY11 27(663) 


iSdes 


1149 
1347% 


1426% 
5148 


Sills 


1SS2 


1245 
648s 


1156# 
1357 


1684 


1SSS 


1282 
1684 


S61 


1558 


1345 


1570 
1575 
1580 


929 


946 
882 


1431% 


1030 
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1362 


1571 
1575 
1581 


9S1 
892 


1432 


1O40# 


is72 
1577 
1S82 


983 
89s 


14S6# 


b= ps 
Gje— 

~30D 
Ww 
 K 


10SS# 


1005 
304 


1477 


106S«# 


191 
$0 


1481# 


1 
7 


1204% 


192g 
913 


1SSO# 


lecis 


11.88 


10S4 
S1é 


1675# 


l23is# 


12202 


0072 


ORii-K LOGIC TEST MAINDEC-11-DZDRGD MACY11 27(663) 19-DEC-76 O8:2& PAGE 42-4 
DZORGD.F21 CROSS REFERENCE TABLE 


138s 1g6"  feehs te8hs fede* degre Igade Teds iedds «Leda 


Rl =%000001 5 653# 655% 656% 1040# 1648 1065* 1067 1401% 1437% 
1470% 814718 1472 1$3S# 1536 1S93% 611% 1612% 1613% 161S# 


P 1 1s24% 1684  1691% 
Ro 439s =«000002 Eat O* $34 654* 655 657 658 140l# 14628 
R3 “000002 13358 133s ee 1333" ee 1633" 14Ol# 14S4* 1455 1457 
1239 12543 1681% 1254% 1692 
Re SDOODEE Saoe tebe ee S74 77% 94% 7 41# 1401# 
2% x , 3 » 
1493% 1a8e 1497% 1502 1203 1219 15h. 855 182 1S40% 
1568 1569% 1570% i571# 15728 15738 1574e 1575* ‘576e 1577% 
1581* 1582x 1586 1588 #1689 1690 1625* 681%  160%# 
=”000006 3908 15% 
=”900007 3908 
ee Sf Sf 
if a a on a nD 
11 
14e0x 1505* 1511 teat. 1674" 1675* 1678 1681* 1684* 1689s 
STACK : 001190 3908 «= S1S5——sL 44 1430 1480 ~—Ss«1 549 
TKLMT= | 3908 
ELDP OB 415559 595 —s«16498 
SWINTB 013430 S72 ~=s «16468 
SWNLB. = 013332 565 63 1e4Se 
SwPOSB 9913526 5? 16478 
1140 4028 #4SiS* 529 532 510 617 63! 635% 640 361 
1305 4=6:1367,——s«174H sd 75 1684* 1692 
SWREG 000176 3948 8=- S15 631 1692 
SWTRAB 013622 578 0—Sss«1 B48 
cwo = 90000) 3908 
swoo = 000001 3908 
SWOl = Oe 3908 
SwO2 = OOO004 3908 
SWwO3 = 000010 3908 
SWwOY = 0 3908 
SwOS = OO0040 3908 
SWwO& == 000100 3908 
SwO? = 900200 3908 
cwoe = 000400 390% 
swoS = 001900 290% 
Sui = O00902 3908 
SwWIO = Co 390% 
Swil = 904900 3908 
Swi2 = 010000 390% 13987 
SWi3 = 0200 3908 $29 610 
ewl4 = 04000 3908 
cwls = 100000 390% $32 617 
SWe = 900004 3908 
SW3 = 000010 390% 
cwH = 000020 3908 
cwe = 000940 3908 


DRI1-K LOGIC TEST MRINDEC-11-DZDRGD MACY11 27(663) 19-DEC-76 08:2 PAGE 42-5 ee 
DZORGD.P11 CROSS REFERENCE TABLE SEQ 2074 
S = 000100 3308 
fine 868 
= 
SWS == 001000 3908 
iortve eb sart =. 571 S74 577 534 6278 
= 
TKVEC = isi 33 ] 
tReet Baran sie o3# Thee 5793 58s 682 
49148 c 
TRAPYE= Godeo4 : Bice 88s 185d 
TRTVEC= 000014 3308 
TSTNUM 015020 1667 1668 18&93 16718 1675 
TSTl 003242 684s 
TST19 OO03604 74S8 
TST11 003670 7608 
TSTle  O03766 768 7718 
TST13 OO4%O64 77 7828 
TSTi4 O04iSe 7348 
TSTIS OO04%240 8068 
TST16 004310 813 8lbe 
TST17 0043Se Ge 8258 
TSTe 003260 689 
STt20 O04410 830 833% 
Yoreh ate : 8438 
t 
18153 Bovele B73 BB 
TSTe4Y OOE7E 824 888s 
TSTes 762 897 900% 
TST26 909 Sles 
TSTe7? O0S2P6 914 S428 
TST3 003316 6 6978 
TST30 © O0S40E 9778 
TE731 005524 355 
eee §@©.«dO05664 10258 
TST33 O06260 047 10508 
ST34 O066S54 1072 10758 
TST 006732 1083 10868 
TST3E 7002 1093 1C 388 
TST37 90705C 1105 1109s 
003354 702 7058 
TST4O O07162 1124 1131s 
TST41 007274 1142 1152 11588 
TST4¥e 007432 1176 1178 11828 
TST43 «007544 1192 1201 «=: 12078 
TSTH4 7732 lele 1e258 
TST4¥S OlOliee2 1238 12738 
TST4B 010254 1275 13028 
TST47 O1O43E 1307 13298 
= 003412 710 7138 
TSTSO §8=©O10516 13418 
TSTS1 QO10634 13588 
TS7S2 011000 13848 
TST 00345 72l8 


450 718 
"ST? 003526 73e% 


DR1i-K LOGIC TEST MAINDEC-11-DZDRGD MACY11 27(663) 


OZORGOD.P11 


SCHARC O164S6 
CKSWR Oi6564 
S$CMTAG 001100 
Mi = O00002 
Me = O00004 
M3 = 000092 
CNTLG Bis dae 
CNTLU 017431 
SCRLF 001173 
SOBLK 011444 
$DCAGN 011204 
SOTBL 011434 
SE 011174 
SENDCT O11142 
SENDMG Biists 
SENULL Q11210 
OP 011106 
SEOPCT 011134 
SERFLG 001103 
001115 

geneee OTTi¢ 
RRPC 1116 
SERRTB 001176 
SERRTY 015440 
SERTTL OO1112 
SE SCARE 8 1170 
LLC 11SE 
$FILLS 001155 
$GDADR 001120 
$GODAT 001124 


14CC 
1983 


CROSS REFERENCE TABLE 


1675 


180? 


1678 
1233 
1$70 
15868 
1560 
693 
766% 
829 
906# 


990* 
1174% 


658 


1678 


167S* 
1674 


1668 


1674 


758. 


a3 


1881 


1692 


1689 


1669 


1675 


i, 


77 
818# 
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Se, ST 
16968 


1356 1381 


1572 1573 1574 1$75 1576 

1583 

708% 709 716% 717 725% 
777% ah | 787% 258 799% 
838 848# 869% 870% 871 

mt ne me ore em 

16% x 
tS4Bs  {8z. «SSE BES TBES 
1692 


1675# 178 


768" 
aa" 


at 
asi eee 88 


ieee 


1577 


783 


aise 


i578 


Pele 


SEQ 0075 


1476 


158C 


763" 
378 


DR11-K LOGIC TEST MAINDEC-11-DZ0RGD MACY11 27(663) 


DZORGD.P11 


SGET4¥2 O11164 
SGTSWR 6634 
$HD = 


SOCNT 016016 

ODE 016020 
SOVER 015256 
$PASS_ 001100 
SPWRAD 016162 
SPWRON 016022 

MG QO16156 
Arg 016074 
QUE 72 
SROCHR O46 


SSTUP = 
S$SYLAD 015230 
SSWR = 165400 


18. 
4 
1013 


CROSS REFERENCE TABLE 


520 
ital 
1092 
16% 


e32 
16678 
1099 


1400 


765 
977 


sy 
4 

10c8* 
1173% 


705% 
843% 
10988 


1692 
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892% 
$29 


16888 


1243% 


746% 


aR} 
860% 
1109% 


1675 


BOE 


1025 


833 
1680 


1264% 


783% 


afct 


11318 


1692 


Ameo 
Onr 


1 


795% 


ages 


11588 


903* 904% 
939% oe 
16s 16808 
1667 1669 
43% 978* 
745% 7608 
300% 9128 


11828 12078 


12 70 
3 84 
1086 1098 


ca 


1000% 


71 
86 


1109 


1240% 


12738 


1277% 


088 
1158 


1674# 


308 
1182 


DR1I1-K LOGIC TEST MAINDEC-11-DZDRGD 
0) CROSS REFERENCE TABLE 


ZORGD.P11 


St=tatats=: 
i) Le eo 
et ed el oe 

oFoNn 


8 
RE 


TRP. 
STNM 001102 


1207 


1236 
1674 
S1S# 


1675 
402% 
16928 


1273 
697% 


515 


MACY11 27(663) 


1302 


1S74# 


S488 
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1329 1341 
782% 794% 
694 697 
779 7828 
8608 872 

iiese ive 

1338 1135 


1675 


6128 1400 


1358 1384 1400 1674 1675 


702 7058 710 7138 718 
7348 806% 813 8168 82e 
8758 884 888s 897 300s 
10508 1072 10758 1083 10868 
11$88 1176 78 118e8 193 
1307 132398 «613418 13588 1384s 


14018 16668 1674 1675 16788 


1684 


16868 


of 


oo oe _— 


DR11-K LOGIC TEST MAINDEC-11-DZDRGD 
DZORGO.P11 CROSS REFERENCE TABLE 


ADIXL 


CLERIN 
CLEROT 


CLRYCT 
COMMEN 
ENDCOM 
ERROR 


10 
16968 


1570 


890 
889 


1325 
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1571 


902 
901 


1386 


1572 
1003 
989 


615 


713 
888 
1207 


LO6 
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1573 


1032 
1002 


745 
342 
1302 


1576 


1577 


1285 
1056 


769 
3 


1S78 


1579 


1076 


794 
1050 
1384 


806 
1075 


1581 


816 
86 
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CROSS REFERENCE TABLE SEQ 0079 

ssskie 3908 G94 702710718 78B 778 UBS? 
309 4 1087 107210881083 saos lessen «11781198 BOLSaBi 
1 1 1307 

-EQUAT 384 

THEADE §=—-3848 

ISETUP = -38Se 440 

‘SWRHI = 3868 = 392 

-SHRLO 3928 

* g 

SeRTA 

SEOP, = 3848 = 1400 

SERRO 3848 

SERRT 3868 1678 

SPARM 3858 


$ROOC ® 1691 
$READ 3858 6 
SSAVE 3858 

$SCOP 3858 1674 
$SPAC 3858 

SWDO 3858 

STRAP 3858 6 

YPO 


‘$ 1401 
"$TYPE 3848 3858 1689 
. 1681 


DRil-K LOGIC TEST MAINDEC-11-DZD8GD MACYI1 27(663) 19-DEC-76 08:22 PCE 42-11 
OZORGD.P11 CROSS REFERENCE TABLE 


add P89 188 A 24 i863 . 675 677 1390 1401 1S31 1533 1S3¢ iss lol2 1616 


ASL 743 973 93%  ## 1022 1270 1299 #41618 #1678 ~»#8 1691 1692 = «16% 

aan 

Bre 5 eu 130} 5 a6 618 o4 702 710 718 727 740 754 768 779 
2 8 oo oe oe ie ode da ode gy oe oe 

ae 1386 1215 ete i 91 1026 1282 1 33 teat Es tea lt 

Si i iit 

BIC Ble 750707 eee eH aae 34 8696610 
1 1023 1053 1054 108 128s 1251 1262 1288 1320 4641331 i400 1452 ~=§81470 

BIS i B55 gg) §d2 183¢ 1040 1065 1137 1165 1188 1250 1252 1263 
4 

pean 1289 l 1365 1401 1471 1587 1623 1681 1692 

SR 

BLO 601 1692 

eres ROL 168 1689 1692 

Br 1105 12s 1401 1836 1601 1603 1605 1607 °~&# 1609 ne ; : 
an 5 ie 
130 1332 46.1335) s«1388 =) 1401 1416 1446 1998 1453. 1474 1817 1528 1874 = 1675 

L 188s 1g83 Ge? 1836 1 1 168 l l 

BR Ete 3 i) a3 es A 2, St iz GIS bk 
is? tad 188 1478 1588 i) a Co Ce Ct CS 

hi 1681 1684 = s «6 1691 lee ai : : : . : 4 
ieee} CsBRSSCRRASC(aéséE:C(iti‘éRE:C(‘<é‘é‘émk?:«C*‘CESC*dS:C(GSET SP BES 
hc, Cc 
ie a (oo 2 iS CC CT 
167 1681 1684 1691 1692 

cLRB 1401 1674 1689 1692 2 ’ one nF 
585 33 0OtBACCi«‘dkBCCié«‘ékS:C(<tié‘éik:C(‘é‘é‘éimG;:Cté‘iKGS(Ci‘éiE:;C;*‘CGGCS 
1017 104 ~=—s-_:1071 1090 10920461102 «611480184 1171 1179, «397 1202s 230s 134 
tere 1327 1380 1401 1442 «©6145? =—ss1814)~=—ssd1Sl6—sid1674H=~=—ssd167S5~—s«d1 982 

CMP 1675 ~=168 1692 

COM c2 7é5 776 947 1040 1065 

CEC 538 2s «1391 1400 «=6sM1S)—s—sisdS84S)—Ss«dSHN?~—Ss«dLH7?22_—s—é‘«dLD—si‘é«dLSB—C=édCLCGS!P? 

a oe 

Sita x, 6 BiB SDRC EPD.HEDS. TEBE TEE? teas tee 


ORI1-K LOGIC TEST MAINDEC-11-DZDRGD 
DZORGO.P11 


{cr 
JMP 
JSR 


MOV 


330 


he hw ee 
SBR SORE RBNES 
— 


Qouvulw-O 


S14 


803 


1S9e 


Oe 
ene rie 
_ meager MOF 3 
WOrnor~ouw 


— 
AT 
ve te 


CROSS REFERENCE TABLE 


1674 


QBwvueroes 
OO LN) 
££ WO~-Wwruw 


Ul 


MACY11 27(663) 


1675 


Wrure-O 
Hig B—— Ton 


— ps be pe pe ep 
=o 


1689 


- 


f 
19-DEC-7&6 08:22 PAGE 42-12 


1400 
1653 


1572 


S60 S67 
1432 
1570 1571 
1936 

SO 557 
6S1 653 
690 691 
725 733 
783 784 
820 826 
880 881 
931 933 
1001 1003 
1075 1077 
1116 11iZ 
1184 il 
1243 1248 
1339 1343 
1400 1401 
14 133 
1480 1502 
1611 1615 
1674 1675 
1119 1120 
1209 le2e 
1366 1367 
1330 1400 
1689 1691 
1689 1696 
1606 1608 
1519 1674 
1636 1637 
1656 1657 
1575 1576 


$89 $97 
1481 1483 
1S72 1573 
S63 S&4 
654 65S 
692 697 
734 738 
785 787 
827 82 
890 891 
943 S45 
1010 1013 
ie 
t1ae 18? 
1277 1278 
1344 1347 
1404 1406 
1437 14 
1503 1505 
1617 1 
1681 1689 


1692 1696 
1675 

1675 1678 
1638 1639 
1658 1689 
1S? 1578 


SRR COREL 34 
ow NOOwWWN 


uimen 


1681 


1645 
1661 


1579 


1689 


1646 
1662 


isso 


~ we ee ee ee oe ee Ce 





? 


t 
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DZORGD.P11 CROSS REFERENCE TABLE 


-ENPBL «= «381.1692 
“END. —s-1699 
"ENDC)6=C«C«gBC(<étéi‘éz COCR (CR (Gs C(<éséiésS CCC HSCS 
697 702 705 710 713 «#49718 721 727 732 86745 
06 813 816 2 830 833 839 
39 909 $12 914 S42 9 977 
0 1072 10 1083 1086 1098 «6110511091124 
1178 «1182 «=s«1193Ss«ste0l,)=Sss«le0?)—s«sdei2 = i228 S«1236 Ss «12838 )=S 1246 
1293 1302 7 1323 3 1 1384 1358 1379 1384 
681 1684 1689 1691 1692 1696 
Equiv 390 
“EVEN 48 86S49)0CCSS3)ts«éwS?C(‘<ésC‘*iSSCdGH?SsGSGSSC«dCGSCti«é«dCSOGCSC(<«‘«i SP 
LIF 398 «= 390s 382—3H—— st (iC <ésCiSCBCCSHDSCs«éSSD 
697 702 705 710 713 9718 721 86727 867320 ©|—(7H5 
794 «= B80ECi<i«i‘iSSC(‘é‘éiGSSC(‘ité«éia SCS SCC (assiéiSti«éiSG 
seg «897 0 909 912 919 942 958 977 
1050 1072 1075 «491083 «1086 «= 10 1098 61105 = 1109S 1124 
1178 1182 «= 1193s«201 =~ s«1207 12 1228 1236 «61238 «= 1246 
1293 307 1323 41 «1354 = 1358 = 13791384 
1684 1689 1691 16 


1681 92 
 IFF 390 392 402 $15 684 

732 8 

839 


1379 1384 1400 1401 74 1675 1678 684 1689 
- IFT S48 Sus 5S3 ble 615 1674 1675 1691 1692 
. IETF S48 549 553 Sle 615 1674 1675 1691 1692 
LIF 388 3932 394 4G2 515 1400 1674 1675 1678 1689 
. IRP 440 684 689 697 70S 713 721 732 745 760 
825 833 860 7S 888 900 Sle e 977 
Po 130) 1131 1158 1182 1207 1236 1273 1302 1329 
LIST 3 376 379 387 390 392 394 402 440 
615 684 689 697 705 713 721 732 745 760 


REM 
REPT 394 402 763 774 4 1059 
SETTL 390 392 334 402 5 58 684 689 697 70S 
771 82 794 806 oib 82 833 860 975 


ow 
a 
o 


ae 


JC 
£Oorm 





DR11-K LOGIC TEST MAINOEC-11-DZORGD 
OZORGD.Pi1 CROSS REFERENCE TABLE 


“aoase 38 402 ss2s«1400 


ERRORS DETECTED: 0 


#DSKZ: DZDRGD, OZDRGD “CRF =CZDRGD 
UN-TIME: 63 36 S SECONDS 
CORE USED: 23K 
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1678 


1681 


= 
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1684 


1689 


1691 


1696 


SEG C082 


